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INTRODUCTION 



PET Fun and Games provides you with 
complete listings for 31 playful 
programs written specifically for 
the Commodore PET and CBM personal 
computers. The programs take full advantage of 
special features of these Commodore computers, 
including their unique character graphics. All of 
the programs are written in BASIC, but you don't 
need to be a programmer to play these games; 
just enter them from the listings provided. 

All of the programs included here have a 
common goal: to be fun! Some of the programs 
will test your memory, some will test your 
strategy, others will challenge your creativity, and 
still others will offer you some educational value. 
In some games you may play against another 
person, but beware, because in others your 
opponent is the computer. 

Some readers may already know of a unique 
magazine named CURSOR. It is unique in part 
because it publishes programs only for 
Commodore PET and CBM computers. It is also 
unique because it publishes the programs on 
cassette. Subscribers then "read" the magazine 
by loading the programs into the PETs and CBMs. 

The programs included in PET Fun and Games 
have been carefully selected from all the 
programs published in CURSOR over the past 
three years. Fourteen programmers have 
contributed to this book, each with individual 
style and approach. With that, we offer here some 
of the best, most showy, entertaining and fun 
programs ever written for the Commodore 
computers. 

How to Use This Book 

Complete listings are provided for each 
program. This means you can type the program in 
your computer exactly as it is listed here, and 
then play! The instructions on how to play each 
game are provided within each program, with 
supplemental instruction offered in the 
introduction to each program. 

The programs make extensive use of the 
graphic characters standard to the Commodore 
PET computers. These graphic characters are part 
of the standard character set of every PET mode; 



you can see the characters on each key on the 
keyboard. The CBM computer does not normally 
display graphic characters; instead, it normally 
displays upper- and lower-case alphabetic 
characters. If you are using a CBM, you can 
enable most graphics characters by typing POKE 
59468,12 before entering the program. 1 (After 
entering the program, you can type POKE 
59468,14 to return the CBM to its normal upper- 
and lower-case alphabetic character set.) Some 
graphics cannot be typed on a CBM with a 
business keyboard. You will have to enlist the aid 
of a friend with a PET to enter them. 

Whenever you enter any program, be sure to 
save it on a cassette or diskette so you won't have 
to type it in again. If you own a CBM but have 
access to a PET, you can also enter the programs 
using a PET, and then run them on your CBM. 

All of the programs are also available on 
cassette or diskette from the folks at CURSOR. 
For information, you should write to: 

PET FUN AND GAMES 

c/o CURSOR Magazine 

5266 Hollister, Suite 224 

Santa Barbara, C A 931 11 

U.S.A. 

How to Read the Listings in This Book 

We have used special notation in the listings in 
order to make them easier to read. You should 
become familiar with this notation before you 
begin to enter any listing. 

First and foremost, anything printed within 
curly braces is special notation. Curly braces look 
like this: { } . Anything printed within these 
braces, including the braces themselves, should 
not be keyed into your listing as you see it. All 
special notation is explained in the following 
paragraphs. 

You should, however, enter every character not 
printed within a set of curly braces exactly as you see 
it printed in the listing, with one exception: spaces. 



1 For more information on substituting graphic characters 
for alphabetic on a CBM, consult PET/CBM Personal 
Computer Guide, second edition, by Adam Osborne and 
Carroll S. Donahue (OSBORNE/McGraw-Hill, 1980). 
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Because it is sometimes hard to "see" a space 
character within a listing, we use an underlined 
period (it looks like this: A ) to represent a space 
character which must be entered in an exact 
location or sequence; this usually occurs within a 
PRINT statement. Normally, we do not use a^ 
character for a space which appears merely as a 
separator of words, but you should also enter 
these spaces for easier reading of your listings 
(unless the space is between words within curly 
braces, illustrated below). For now, you must 
remember to enter a space character whenever you 
see the^ character. For example, the PRINT 
statement 

PRINT "GREETINGS, EARTHLING! TAKE US TO YOUR LEADER!" 

is shown as 

PRINT "GREETINGS, ^EARTHLING ! J _ L TAKE J _US_ L TO JL YOUR JL LEADER i " 

There are two kinds of special characters within 
curly braces: graphics characters (shift- 
whatever) , and cursor control characters (for 
instance, cursor down, or home cursor). 
Graphics characters are shown within braces as 
their unshifted counterparts. Thus, the solid 
square would be shown as "{&}", the diamond 
would be " {Z} ", and a shifted space would be 
shown as "{.}". 

Cursor control characters are shown within 
braces as the name of the key. The name of any 
cursor control key is printed in lower-case letters 
to avoid confusing the name with an odd 
sequence of graphics characters. 



(up) 


Cursor Up 


{down} 


Cursor Down 


{left} 


Cursor Left 


{right} 


Cursor Right 


{rvs} 


Reverse Video 


{off} 


Normal Video (reverse off) 


{home} 


Home Cursor 


[clr} 


Clear Screen 


(ins} 


Insert Character 


{del} 


Delete Character 



Quite often, cursor control keys are repeated 
many times. For example, it's common to 
program a sequence like " {home down down 
down down down down down} ".To save space in 
the printed listings, and to simplify your work 
when typing the programs, we tell you how many 
times to repeat a cursor control key. The "press- 
count" comes right before the key name, 
separated by a degree (°) character. Printed that 
way, the above example is listed out as 
"(home 7°down}". 

There is one catch to the "press-count" 
notation. There are a few graphics that get printed 



as numbers within braces. How can you tell when 
a digit inside braces represents a graphics 
character, and when it means a "press-count"? 
Since those particular graphics are not used 
much, a number within braces will most likely be 
a "press-count", but the sure way to tell is to see 
if it is followed by a " ° " and a cursor control. If 
so, it is a press-count. If it is followed by anything 
but a " ° ", it is a graphics character. For 
example, when you see this line in a listing: 

20 PRINT "{02. 3°left down}" 

you enter: [2] [0] [space] [P] [R] [I] [N] [T] 
[space] ["] [shift-0] [shift-2] [shift-period] 
[cursor left] [cursor left] [cursor left] [cursor 
down] ["]. 



Numeric Keypad 

The numeric keypad is used to control 
movement in many of the games. As shown in 
the diagram below, you control movement on the 
screen by pressing the numeric key that has that 
position on the pad. 




For example, to move an object up (or 
"forward"), press [8]. To move right, press [6], 
while [4] moves you left. To move down, press 
[2]. Some games also allow diagonal movement, 
using the [1], [3], [7] and [9] keys. 



Sound 

Several of the games use the CB2 sound 
capability of the PET. These games are much 
more fun if you have sound, so it is strongly 
suggested that you purchase a sound attachment. 
(If you have one of the new "Fat Forty" models, 
a sound device is built-in.) If your local 
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Commodore dealer doesn't have a sound restore the 6522 sound registers to their normal 

adapter, write to Channel Data, 4141 State, Suite condition: 

A2, Santa Barbara, CA, or to CAP Electronics, POKF 59464 0- POKF 59466 0- POKF 59467 

8462 Hillwood Lane, Tucson, AZ 85715. ™ Kil :>V404 ' U - ruKb W(,(, ' u - ruKt *™>/,u 

Another note about sound is that "CB2" is Games that use sound are denoted in each 

produced by using the 6522 chip, which also program heading by the following symbol: 

produces the tones that are used to record 

programs on the cassette recorder. If you use the ^ ; 

Stop key to get out of a program that uses sound , ^ 

you may find that you can't save a program. You 
can correct this program by typing the following 
line, which contains three commands which 
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ACTION 
GAMES 



By Tom Marazita 



When the game begins, a snake-like train 
of dots, (your zapper) starts crawling up 
the right-hand edge of the arena. Using 
your zapper, try to "zap" all the targets that pop 
up on your screen. The hitch is that you must do 
this without driving your "zapper" either into a 
wall or back across itself. After you get used to 
controlling your zapper, it will not be hard to 
avoid hitting a wall. However, each time you zap a 
target, your zapper becomes longer, and it 
becomes increasingly difficult to maneuver 
without running into yourself. 

You control the zapper using the numeric 



keypad. Each time you run over a target you get 
ten points. Pressing [5] allows you to stop where 
you are, but while you are stopped, your score 
automotically decreases very rapidly. If you spend 
a lot of time wandering about the arena but not 
zapping much of anything, many targets will 
appear and then disappear unzapped, thus 
reducing your final percentage score. 

The game is over after you have crashed six 
times. The PET will tell you what your score was, 
what the maximum score for that session would 
have been if you had zapped all of the targets, and 
what percentage of the targets you actually did zap. 




CLR:POKE 59468 f 12 

6 REM ZAP COPYRIGHT (C) 1981 THE CODE WORKS 
10 REM AS OF 10/6/81 RJ 
90 PG$="ZAP" :NM$= n 2" :GOSUB 62000 

100 DIM WM(255) f A(255) 

101 GOSUB 60400 

102 EL=18:HP=EL-1 
120 PRINT "{clr}" 
130 PO=CRT+WD*25-2 
140 S=l 

160 FOR X=CRT+WD+1 TO CRT+WD*2-2 :POKE X f 100:NEXT 

170 FOR X=CRT+WD*2 TO CRT+(WD*23) STEP WD:POKE X,103:NEXT 

180 FOR X=CRT+(WD*24)+1 TO CRT+WD*25-2 :POKE X,99:NEXT 
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190 FOR X=CRT+WD*24-1 TO CRT+WD*3-1 STEP -WD:POKE X,101:NEXT 

195 GOSUB 900 

200 GET A$:IF A$<>"" THEN 200 

211 GOTO 410 

220 A$="8" :GOTO 240 

230 GET A$:IF A$="Q" THEN 650 

240 IF A$ = ,, 4" THEN DIR=-1 

250 IF A$="8" THEN DIR=-WD 

260 IF A$="6" THEN DIR=1 

270 IF A$="2" THEN DIR=WD 

280 IF A$="7" THEN DIR=-WD-1 

290 IF A$="9" THEN DIR=-WD+1 

300 IF A$="3" THEN DIR=WD+1 

310 IF A$= n l" THEN DIR=WD-1 

311 IF A$="5" THEN 770 

320 PO=PO+DIR 

321 IF PO=33767 OR PO=33728 OR PO=32808 OR PO=32847 THEN 590 

324 IF PEEK (PO) =102 THEN GOSUB 550 

325 WM(HP)=PO:HP=HP+l 

326 IF HP>EL THEN HP=0 

340 IF PEEK(PO)>98 AND PEEK(PO)<102 THEN 590 

345 IF PEEK(PO)>102 AND PEEK(PO)<104 THEN 590 

350 IF PEEK(PO)=81 THEN 590 

360 POKE PO,81 

370 R=INT(RND(1) *15)+1:IF S>5 THEN ZZ=20 

375 P1=INT(RND(1) *ZZ)+1:ZZ=50 

380 IF R=3 THEN 410 

390 IF Pl=3 THEN 480 

400 GOSUB 730:GOTO 230 

410 REM 

420 IF S>6 THEN 400 

430 Q=INT(RND(l)*1000) + (32768+160) 

435 IF Q>33726 THEN 430 

440 IF PEEK(Q)<>32 THEN 430 

450 S=S+1:H=H+1:TC=TC+1 

460 POKE Q,102 

470 A(H)=Q:IF CV=1 THEN 400 

475 CV=l:GOTO 220 

480 REM 

490 P=INT(RND(1) *H)+1 

500 REM 

510 IF PEEK(A(P))<>102 THEN 540 

520 POKE A(P) ,32 

53 S=S-1 

540 A(P)=A(H) :H=H-l:GOTO 400 

550 REM 

560 SC=SC+10 

565 S=S-1 

566 EL=EL+2 

567 IF EL>250 THEN EL=250 
570 GOSUB 900 
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580 RETURN 

590 CA=CA+1 

595 GOSUB 900 

600 IF CS>L THEN L=CS 

610 CS=0 

615 EL=18:HP=17 

616 TP=0 
620 CV=0 

635 FOR T=l TO 8:FOR X=l TO 100 :NEXT:POKE PO,209:FOR Xl=l TO 100: 
NEXT:POKE PO,81:NEXT 

636 FOR X=0 TO 255 :WM(X) =0:NEXT:HP=17 :TP=0 
638 IF CA=6 THEN 650 

640 GOTO 120 

650 PRINT "{clr 6°down}" 

660 PRINT "YOUR J _ t SCORE J _IS"SC 

662 PRINT 

666 PRINT 

667 PRINT "HIGHEST J _POSSIBLE_ t SCORE:"TC*10 
670 PRINT 

675 PRINT ,, YOU J .HIT";INT((SC/(TC*10))*100) ; "%. t _OF_ t THE_ i _TARGETS" 

677 GET Q$:IF Q$<>"" THEN 677:REM WAS POKE525,0 

680 PRINT " {down}WANT J .TO J .PLAY J .AGAIN?" 

681 GET RJ$:IF RJ$="" THEN 681 

682 IF RJ$<>"N" THEN CLR:GOTO 100 

685 PRINT " {down} HOPE_ i _YOU_ t HAD_ 1 _FUN! {down}" 

700 END 

730 LOC=WM(TP) :TP=TP+1 

740 IF TP>EL THEN TP=0 

750 POKE LOC,32 

760 RETURN 

770 FOR E=l TO 171:GET A$ : IF A$<>"" THEN 240 

780 NEXT E:SC=SC-10:IF SC<0 THEN SC=0 

7 90 GOSUB 900 

800 GOTO 770 

900 PRINT "{home 3°right}SCORE="SC;TAB(18) ; "NO._«_OF J _CRASHES="CA 

910 RETURN 

60000 IN$=" J .":ZT=TI:ZC=2:ZD$=CHR$(20) 

60010 GET Z$:IF Z$<>"" THEN 60070 

60020 IF ZT<=TI THEN PRINT MID$ ( V{&} " , ZC,1) ; " {lef t } " ; :ZC=3-ZC: ZT=TI+15 

60030 GOTO 60010 

60070 Z=ASC(Z$) :ZL=LEN(IN$) :IF (Z AND 127X32 THEN PRINT VUef t } " ; : 

GOTO 60110 

60080 IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

60090 IF ZL>254 THEN 60010 

60100 IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

60110 IF Z=13 THEN IN$=MID$ (IN$,2) :PRINT CR$*:RETURN 

60120 IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ r ZL-1) :PRINT "{left}";: 

GOTO 60010 

60130 IF Z=141 THEN Z$=CHR$ (-20* (ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 
NEXT Z:GOTO 60000 
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60140 
60200 
60210 
60220 
60230 
60240 
60250 
60260 

60270 
60400 
60410 
60420 
60500 
62000 
62010 
62020 
62025 
62030 
62040 
62100 
62130 
62140 
62150 
62160 
62170 
62180 
62190 
62200 
62202 
62205 
62210 
62212 
62225 
62228 
62230 
62235 



GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500:PRINT " {down}PRESS^{rvs}RETURN{of f } J .TO J ." ; 

IF PN=LP THEN PRINT "BEGIN: ";: GOTO 60240 

PRINT "CONTIUNE:"; 

GET T$:IF T$ = "" THEN 60240 

IF PN=LP THEN CLR: PRINT " {clr } " ; :GOTO 100 

PN= PN+1 : PR INT " { c 1 r } " ; PG $ ; V-^CURSOR..* " ; NM $ ; 

,, ^.(C) J .1981 J _ l _ t _ t PAGE ,, ;PN; "{down} " 

GOSUB 60500: RETURN 

CRT=32768:CR$=CHR$(13) :WD=40:PRINT "{clr}" 

POKE CRT,96:IF PEEK(CRT+1024) <>96 THEN WD=80:PRINT CHR$(142) 

RETURN 

FOR 1=1 TO 13:PRINT " {DDD} " ; :NEXT I:PRINT :RETURN 

PRINT "{clr 2 ° down } " ; TAB ( 1 4 -LEN ( PG $ ) ) ; PG $ ; ". t _ t _BY_ 1 _TOM_ I .MARAZ I TA " 

PRINT ,, {down} J _ tJlJLJ .CURSOR J .#2 J _ t COPYRIGHT J .(C) J .1981" 

GOSUB 60500 

PRINT I, {down}CHASE J .THE J _TARGETS" 

PRINT "{2°down}WANT J .DIRECTIONS? J .";:GOSUB 60000 

IF IN$<>"Y" THEN 100 

LP=l:GOSUB 60200 

PRINT "YOU_ 1 _CONTROL J _A J .STRANGE_ 1 _MISSILE ! " 

PRINT " {down} TARGETS^. 1 {&} l _ t APPEAR_ 1 _ON_ I _THE_ I .SCREEN,.i.WHICH" 

PRINT " YOU^TRY^TO^HIT . J _ t USE J .NUMBERS J _TO J .CONTROL " 

PRINT "THE_ t _MISSILE:. t 8 J _MOVES. t YOU_ 1 _UP, " 

PRINT " 2 . MOVES . YOU . DfTWN. " 

PRINT 

PRINT " 4 . MOVES . YOII . LEFT " 

PRINT " 6. MOVES. YOII. RIGHT." 

PRINT 

PRINT " (1 , _,_3 , A 7 ,.iAND. i .9 J .MOVE J .YOU_ 1 _DIAGONALLY) " 

PRINT 

PRINT " EACH^TARG ETj.IS^WORTH j.1 0_«_PO INTS , _^BUT " 

PRINT "YOURj.MISSILE^.GETS^.BIGGER^FTER^.HITTING" 

PRINT "A^TARGET..." 

PRINT " {down}THE^GAME J _ENDS. t AFTER J1 _6 J1 .CRASHES! " 

GOSUB 60200 
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SHARK 

By Glen Fisher 



It's time for dinner, and we have just 
the thing — man-eating shark. Or is 
it shark, eating man? In this tasty 
little program, your task is to munch as many 
swimmers as you can. But beware of the divers 
and traps; they both make life difficult for you. 
Also, the swimmers are not at all cooperative — 
they're busy heading for the beach, trying to 
escape your jaws. 

The PET will start by asking how many 
swimmers, how many traps, and how many 
divers you want. Make things as difficult or easy 
as you like (there are some limits). The 
swimming area is surrounded by shark traps on 
three sides and the beach on the fourth. Since 
"they" know you're there, "they've" sent out 
divers and put more shark traps into the 
swimming area, all in an effort to get you before 
you get them. 

When your shark symbol (_L) is flashing, it's 



your turn to move (which is done using the 
numeric key pad). Being a shark, you're a pretty 
good swimmer, so you normally move two 
spaces. If you want to move only one space (to 
avoid a trap, perhaps), hold [SHIFT] down while 
you press the number key. After you move, each 
of the swimmers and divers gets to move one 
space. 

To eat a swimmer, just attack him. Eating 
swimmers doesn't prevent you from moving — 
you may attack a swimmer next to you, and 
continue on to the space beyond (which may hold 
another swimmer). The hazards to avoid are 
traps, divers, and the beach itself. The divers are 
after you with spear guns. If they catch you, 
you're dead. If you attack a diver, you have a 50% 
chance of winning. Dinner is over when all the 
swimmers have either hit the beach or been 
eaten, or when you've been killed by a diver or a 
trap. 






6 

10 

90 

100 

105 



CLR:POKE 59468,12 

REM SHARK (C) 19 81 THE CODE WORKS 

REM AS OF 10/06/81 RJ 

PG$="SHARK" :NM$="1" :GOSUB 62000 

GOSUB 60400:HT=25:SF=30:BT=(HT-2) *WD:RT=10 

BL=32:SH=113:DV=81:SW=87:TR=86:BE=102 



Action Games: SHARK 

110 PRINT "{down}HOW_ t _MANY J .TRAPS?_ t ";:GOSUB 60000 

115 IF IN$="" THEN IN $ = "5 ": PRINT "HOW. 1 ABOUT_ t " ; IN$ ; 'STRAPS, ^THEN?" 

120 NT=VAL(IN$) : IF NT>25 THEN 

PRINT "TRY INGj.TO^.MAKE^SWIMMING^DANGEROUS?": GOTO 110 
125 IF NT<1 THEN PRINT "THAT 1 S^A^CHALLENGE?" :GOTO 110 
130 PRINT "{down}HOW A MANY J .SWIMMERS? J .";:GOSUB 60000 :NS=VAL (IN$) 
135 IF IN$="" THEN IN $ = "25 ": PRINT "OK, A YOU ' LL^GET^." ; IN$ ; "^.SWIMMERS. " 
137 NS=VAL(IN$) 
140 IF NS>100 THEN PRINT "HEALTH^REGULATIONS_«_PROHIBIT J _THAT J _MANY. " : 

GOTO 130 
145 IF NS<1 THEN PRINT "ON^A^STARVATION^DIET?" :GOTO 130 
150 PRINT "{down}HOW_J4ANY_J)IVERS? J ."; -.GOSUB 60000 :ND=VAL (IN$) 
155 IF IN$="" THEN IN$="2" :PRINT "LET_».THERE_ t BE Jl ." ; IN$ ; VDIVERS. " 
160 ND=VAL(IN$) : IF ND>25 THEN PRINT "DIVING J .ISN'T J _THAT J _POPULAR! " : 

GOTO 150 
165 IF ND<1 THEN PRINT "SHARKS^AREN' Tj.AN^ENDANGERED^SPECIES 11 : 

GOTO 150 

185 ES=0:KD=0 

186 DEF FN R(N) =INT ( (N-l) /3) -1 :DEF FN C (N) =N-3*INT ( (N-l) /3) -2 

187 DIM SS(NS,1) ,DS(ND,1) 

188 FOR 1=0 TO 500:NEXT I 

189 PRINT " f cl r > . . SWTMMERS . EATEN : ESCAPED i " 

190 FOR 1=0 TO SF 

191 POKE CRT+WD+I,TR:POKE CRT+I+BT f TR 

192 NEXT I 

193 FOR I=WD TO BT STEP WD 

194 POKE CRT+I,TR 

195 FOR J=SF+1 TO 39 

196 POKE CRT+I+J,BE 

197 NEXT J 

198 NEXT I 

199 FOR 1=1 TO NT 

200 GOSUB 10000 
210 POKE LOC,TR 
220 NEXT I 

230 FOR 1=1 TO NS 

240 GOSUB 10000 

245 SS(I,0)=ROW:SS(I,1)=COL 

250 POKE LOC,SW 

260 NEXT I 

270 FOR 1=1 TO ND 

280 GOSUB 10000 

285 DS(I,0)=ROW:DS(I,1)=COL 

290 POKE LOC,DV 

300 NEXT I 

310 GOSUB 10000 :POKE LOC f SH 

320 SR=ROW:SC=COL 

325 PRINT "{home 

24 °down}_ tJlJ _SHARK J .=. 1 Jl }.* J _ t SWIMMER J _= J _{W} JL ^_ t .DIVER. 1 _=_ t {Q} " ; 

330 PRINT "{home}" : PRINT " {up} ";TAB(18) ;KD;TAB(34) ;ES 

500 GOSUB 10100 



PET FUN AND GAMES 

520 POKE OLD f BL 

53 FOR 1=1 TO DIST 

540 OLD=OLD+CC+WD*RC 

545 SC=SC+CC:SR=SR+RC 

550 IF PEEK(OLD)=SW THEN GOSUB 10300:POKE OLD,BL:GOTO 570 

560 IF PEEK (OLD) OBL THEN GOTO 5000 

570 NEXT I 

580 POKE OLD,SH 

590 IF ND<1 THEN 790 

600 FOR 1=1 TO ND 

610 RM=HT+1:CM=WD+1 

620 ROW=DS(I,0) :COL=DS(I,l) 

625 OLD=CRT+WD*ROW+COL 

626 POKE OLD,BL 

630 RC=SGN(SR-ROW) : IF RC=0 THEN RC=1 

631 CC=SGN(SC-COL) : IF CC=0 THEN CC=1 
635 LOC=OLD+RC*WD+CC 

640 FOR J=RC TO -RC STEP -RC 

650 FOR K=CC TO -CC STEP -CC 

660 CH=PEEK(LOC) : IF CH=BL OR CH=SH THEN 720 

680 LOC=LOC-CC 

690 NEXT K 

700 LOC=LOC+3*CC-WD*RC 

710 NEXT J 

715 BUG=l:GOTO 50000 

720 ROW=ROW+J:COL=COL+K 

730 LOC=CRT+WD*ROW+COL 

740 DS(I,0)=ROW:DS(I,1)=COL 

750 CH=PEEK(LOC) :POKE OLD,BL:POKE LOC,DV 

760 IF CH=SH THEN CAUSE=l:GOTO 5100 

765 IF CHOBL THEN BUG=2:GOTO 50000 

770 NEXT I 

790 CT=NS 

80 FOR 1=1 TO NS 

810 ROW=SS(I,0) :COL=SS(I f l) 

820 RC=SGN(ROW-SR) :IF RC=0 THEN RC=SGN ( (HT-RCW) -ROW) : IF RC=0 THEN 

RC=1 
830 OLD=CRT+WD*ROW+COL 
840 LOC=OLD+WD*RC+l 
850 FOR J=RC TO -RC STEP -RC 
860 FOR K=l TO -1 STEP -1 
865 CH=PEEK(LOC) 

870 IF ABS(R0W+J-SR)+ABS(C0L+K-SC)>1 AND (CH=BL OR CH=BE) THEN 93 
880 LOC=LOC-l 
890 NEXT K 
900 LOC=LOC+3-WD*RC 
910 NEXT J 
920 J=0:K=0:LOC=OLD 
930 ROW=ROW+J:COL=COL+K 
935 POKE OLD,BL 
940 IF PEEK (LOO =BE THEN GOSUB 10500 :GOTO 96 

8 



Action Games: SHARK 



945 

950 

960 

970 

980 

990 

1000 

1010 

1020 

5000 

5010 

5030 

5040 

5050 

5090 

5100 

5120 

5130 

5140 

5210 

5215 

5220 

5250 

5260 

5500 

5510 

5520 

5530 

5540 

6010 

10000 

10010 

10017 

10020 

10100 

10105 

10110 

10120 

10130 

10140 

10150 

10160 

10165 

10170 

10180 

10190 

10200 

10250 

10260 



POKE LOCSW 

SS(I,0)=ROW:SS(I,1)=COL 

NEXT I 

IF CT=NS THEN 500 

FOR 1=1 TO CT 

IF SS(NS f 0)<0 THEN NS=NS-l:GOTO 990 

IF SS(I,0)<0 THEN SS(I, 0) =SS (NS f 0) :SS (I, 1) =SS (NS, 1) :NS=NS-1 

NEXT I 

GOTO 500 

CH=PEEK (OLD) 

IF CH=DV AND RNDQK.5 THEN GOSUB 10300 :GOTO 57 

IF CH=DV THEN CAUSE=l:GOTO 5100 

IF CH=BE THEN POKE OLD, SH+128:CAUSE=2:GOTO 5100 

IF CH=TR THEN CAUSE=3:GOTO 5100 

BUG=3:GOTO 50000 

FOR 1=1 TO CAUSE:READ M$ :NEXT I 

PRINT "{home 23°down} n ; 

PRINT " ■ " ;CHR$ (20) ; 

"...{up}" 

PRINT TAB((30-LEN(M$))/2) ;"{rvs VW of f }^" ;M$; " 1 I^Jrvs VW 

off}" 

PRINT "DO. YOU. WANT. TO. PLAY. AGAIN ? {up} " 

PRINT TAB(27) ;: GOSUB 60000 

IF LEFT$(IN$,1K>"N" THEN CLR:GOTO 100 

PRINT n {clr 6°down}THANKS J .FOR J .PLAYING." 

END 

" TH Ej_DI VER*.GOT^.YOU " 

" YOU ^.B EACHED^YOU RS EL F " 

" YOU^GOT^TRAPPED " 

" YOU.*.GOT J .THE J .LAST J .SWIMMER " 

"THEj.LAST^SWIMMER^JUST^.ESCAPED" 



DATA 

DATA 

DATA 

DATA 

DATA 

END 

ROW=INT(RND(l)*(HT-3) ) +2:COL=INT(RND(l) *SF) +1 

LOC=CRT+WD*RGW+COL : IF PEEK(LOC)OBL THEN 10000 

IF LOOCRT+WD*25-1 THEN 10000 

RETURN 

OLD=CRT+WD*SR+SC:TM=TI :DK=-1 

GET C$:IF C$<>"" THEN 10105 

GET C$:IF C$O n " THEN 10160 

IF TKTM THEN 10110 

IF DK THEN POKE OLD,BL 

IF NOT DK THEN POKE OLD,SH 

DK=NOT DK:TM=RT+TI:GOTO 10110 

TE=(ASC(C$) AND 127) -ASC( "0") 

IF C$="Q" THEN 5250 

IF TE<1 OR TE>9 THEN 10110 

DIST=1:RC=FN R(10-TE) :CC=FN C(TE) 

IF ASC(C$)<128 THEN DIST=2 

RETURN 

TM=TI+DL 

IF TKTM THEN 10260 



PET FUN AND GAMES 



10270 RETURN 

10300 CH=PEEK(OLD) :DL=5 

10305 POKE OLD,SH 

10310 FOR 11=1 TO 4 

10320 GOSUB 10250 :POKE OLD,CH 

10330 GOSUB 10250:POKE OLD,SH 

10340 NEXT II 

10350 POKE OLD,BL 

10360 IF CH=SW THEN 10420 

10370 FOR 11=1 TO ND 

10380 IF DS(II,0)=SR AND DS(II,1)=SC THEN 10400 

10390 NEXT II:BUG=4:GOTO 50000 

10400 DS(II,0)=DS(ND,0) :DS(II, 1) =DS (ND, 1) :ND=ND-1 

10410 RETURN 

10420 FOR 11=1 TO NS 

10430 IF SS(II,0)=SR AND SS(II,1)=SC THEN 10450 

10440 NEXT II:BUG=5:GOTO 50000 

10450 SS(II,0)=SS(NS,0) :SS (II, 1) =SS (NS, 1) :NS=NS-1:KD=KD+1 

10455 PRINT " {home}";TAB(18) ;STR$(KD) ;V 

10460 IF NS>0 THEN RETURN 

10470 POKE OLD,SH:CAUSE=4:GOTO 5100 

10500 DL=l:LOC=CRT+WD*ROW+(SF+l) 

10510 FOR II=SF+1 TO 39 

10520 POKE LOC,SW+128:GOSUB 10250 

10530 POKE LOC,BE:LOC=LOC+l 

10540 NEXT II 

10550 SS(I,0)=-1 

10560 CT=CT-1:ES=ES+1 

10565 PRINT " {home}";TAB(34) ;STR$(ES) j"^" 

10570 IF CT>0 THEN RETURN 

10580 CAUSE=5:GOTO 5100 

20000 DL=20 

20010 GOSUB 10250 :POKE LOC,CH 

20020 GOSUB 10250:POKE LOC,DV 

20030 GOTO 20010 

20100 DL=16:CH=PEEK(OLD) 

20110 GOSUB 10250:POKE OLD, (CH+128) AND 255 

20120 GOSUB 10250: POKE OLD,CH 

20130 GOTO 20110 

50000 T$=STR$(BUG) :T=LEN(T$)+3 

50010 PRINT "{home , off}"; 

50020 FOR IJ=1 TO T:PRINT "{"}";:NEXT IJ 

50030 PRINT "{;}":PRINT "{rvs ! }BUG" ;T$ ; " {of f !}" 

50040 PRINT "{< rvs}"; 

50050 FOR IJ=1 TO T:PRINT "{"}"; :NEXT IJ 

50060 PRINT "{Off >}" 

60000 IN$='V:ZT=TI:ZC=2:ZD$=CHR$(20) 

60010 GET Z$:IF Z$<>"" THEN 60070 

60020 IF ZT<=TI THEN PRINT MID$ ( "^U} ", ZC,1) ; " Qef t } " ; : ZC=3-ZC: 

ZT=TI+15 
60030 GOTO 60010 
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60070 Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "^Uef t } " ; : 

GOTO 60110 
60080 IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 
60090 IF ZL>10 THEN 60010 
60100 IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

60110 IF Z=13 THEN IN$=MID$ (IN$ ,2) :PRINT CR$;:RETURN 
60120 IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT "{left}";: 

GOTO 60010 
60130 IF Z=141 THEN Z$=CHR$ (-20* (ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 

NEXT Z:GOTO 60000 
60140 GOTO 60010 
60200 IF PN=0 THEN 60250 

60210 GOSUB 60500:PRINT " {down} PRESS^Crvs) RETURN {of f} J .TO J ." ; 
60220 IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 
60230 PRINT "CONTINUE:"; 
60240 GET T$:IF T$="" THEN 60240 

60250 IF PN=LP THEN CLR:PRINT " {clr } " ; :GOTO 100 
60260 PN=PN+1: PRINT " {clr } " ;PG$ ; V-^CURSOR^* " ;NM$; 

" J _ t (C)_ 1 _1981_i_ t _^ 1 _PAGE";PN;"{down}" 
60270 GOSUB 60500:RETURN 

60400 CRT=32768:CR$=CHR$(13) :PRINT "{clr}" 
60410 WD=40:POKE CRT,96:IF PEEK (CRT+1024) <>96 THEN WD=80 : 

PRINT CHR$(142) 
60420 RETURN 

60500 FOR 1=1 TO 13:PRINT " {DDD} " ; :NEXT I:PRINT "{left ins D}":RETURN 
62000 PRINT "{Clr 2°down} " ;TAB(9) ;PG$; " J _ 1 _BY. t _GLEN J _FISHER" 
62010 PRINT ,, {down} AJ _,_ tJL CURSOR J .#l JJ .COPYRIGHT J .(C) J .1981" 
62020 GOSUB 60500 
62030 PRINT " {down} EAT^ALL^THE J _SWIMMERS,_ 1 _BEFORE J _THEY J .ESCAE{ left 

ins}P" 
62040 PRINT " {2°down}WANT_ 1 _DIRECTIONS?_ 1 _" ; :GOSUB 60000 
62050 IF IN$<>"Y" THEN 100 
62100 LP=2:GOSUB 60200 
62130 PRINT "YOU J _ARE_ i _A*.SHARK J _ • { 1 } • " 
62140 PRINT "THAT^EATS^SWIMMERS^'W" 
62150 PRINT "WHILE_ 1 _AVOIDING JL DIVERS J _ , {Q} ' " 
62160 PRINT "AS.*.WELL Jt _AS J _TRAPS_ t _ , {V} • " 
62170 PRINT 

62180 PRINT "USE_ t _THE. 1 _NUMBER. ± .KEYS_ t TO_ t MOVE. " 
62185 PRINT "" 

62190 PRINT "THE^'S'^KEY^IS^YOUR^CURRENT^LOCATION. " 
62195 GOSUB 60200 

62200 PRINT "FOR^EXAMPLE, je .TO_ t MOVE J _TWO_ t _SPACES" 
62210 PRINT "TO. t _THE_ 1 _RIGHT,^PRESS_ t THE J _ l 6 , _ t KEY" 
62220 PRINT 

6223 PRINT " 7. .8. .9" 

62240 PRINT " J _ tAJl ^ J1 .{M} J .{B} J .{N} " 
62250 PRINT 

62260 PRINT 'V^^l {C} J .5 J .{C}6" 
62270 PRINT "" 
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62280 
62290 
62300 
62310 
62320 
62325 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 



1 1 1 1 1 1 {N}. 
1 1 2 



.{BL 



,{M) 



"SHIFTING_ t A J _NUMBER_ 1 _MOVES_ 1 _ONE. 1 _SPACE" 
" IN^.THATj.DIRECT IONj. ( IN STEAD j.OF^.TWO ) " 
60200 
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DEMON 




By Ken Morley 



Your task is to recapture a demon that has the first one is recaptured. Thus, you've got to 

accidentally escaped during the keep after demons until the spell wears off. When 

demonstration of a spell. As long as the the spell expires, the first escaped demon will be 

demon is avoiding capture, he can't free any sent back where he belongs, but any demons he 

more demons. The problem is that, as long as the has freed will remain. It is, therefore, vital that he 

spell is active, another demon can escape once not be given the chance to free any other demons. 



CLR:POKE 59468,12 

6 REM DEMON! COPYRIGHT (C) 1981 THE CODE WORKS 

10 REM AS OF 10/6/81 RJ 

90 PG$ = ,, DEMON!":NM$ = "ll' , :GOSUB 62000 
100 REM 

110 FOR 1=1 TO 9:READ N2(I):NEXT I 
120 DATA 17,14,13,8,0,12,9,10,11 
130 FOR 1=1 TO 8:D(I)=I-(I>4) .-NEXT I 
140 T=WD:FOR 1=2 TO 9 STEP 3:FOR J=-l TO 1 :E (I+J) =T+J:NEXT:T=T-WD: 

NEXT I 
160 FOR 1=1 TO 9:READ N1(I):NEXT 
170 DATA 58,52,46,28,0,43,30,34,38 
190 FQ=59464:TN=59466:CT=59467 
300 NM=0:CR$=CHR$(13) 
310 Ol=33708:TI$ = ,, 000000" 
320 PRINT " {clr}" 
480 GOTO 500 

490 PRINT ,, {down}PLEASE J .ANSWER t , l , , A , 2 I , A OR J . , 3' ." 
500 PRINT "{down}WANT A A J .(l) J .SHORT, A (2) A MEDIUM, A OR" 
510 PRINT " (3) J _LONG J .GAME?_ 1 _";:GOSUB 60000 
520 IF IN$ = "" THEN PRINT "I • LLj.ASSUME^Aj.SHORT^.GAME. " :FOR T=l TO 

1000:NEXT:IN$="1" 
530 IF LEN(IN$)>1 THEN 490 
540 IF IN$<"1" OR IN$>"3" THEN 490 
550 LM=3600*VAL(IN$) 
800 GOSUB 10000 
810 FOR 1=1 TO 5: POKE 01,81: FOR J=l TO 100 :NEXT: POKE 01,32: 

FOR J=l TO 100:NEXT:NEXT I 
820 POKE 01,81 

900 OP=32809+INT(RND(1) *918) 
910 IF PEEK(OP)<>32 THEN 900 
1000 ND=8 

1005 T=INT(RND(1) *ND) :DN=D(T) :D(T)=D(ND) :D(ND) =DN:ND=ND-1 

1006 IF PEEK(OP+E(DN))<>32 THEN 1005 
1010 FOR 1=1 TO INT(RNDU) *6) +3 
1020 NP=OP+E(DN) 
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1030 
1040 

1100 
1105 
1110 
1120 
1130 
1140 

1500 
1510 
2000 
2001 
2002 
2003 
2004 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2050 
2100 
2500 

4000 

4100 

5000 

5010 

5020 

5030 

5040 

5050 

10000 

10010 

10020 

10030 

10035 

10040 

10050 

10060 

10070 

10080 

60000 

60010 

60020 

60030 



900 

NP , 8 7 : OP=NP : PC=N2 ( DN) 



THEN 2000 
IF B=0 THEN 



B=5 



900 
N1,81:01=N1 



PC=N1(B) : 



IF PEEK (NP) =81 THEN GOSUB 5000:GOTO 

IF PEEK (NP) =32 THEN POKE OP, 32: POKE 

GOSUB 4000 

IF TI>LM THEN GOTO 2000 

POKE QP,255:GET B$:IF B$ = 'V 

B=5:IF B$<>"" THEN B=VAL(B$) 

N1=01+E(B) 

IF PEEK(N1)=87 THEN GOSUB 5000:GOTO 

IF PEEK (Nl) =32 THEN POKE 01 ,32: POKE 

GOSUB 4000 

NEXT I 

GOTO 1000 

PC=0:GOSUB 4000:POKE TN,1:PC=255 

POKE OP,102:GOSUB 2500 

POKE OP,224:GOSUB 2500 

POKE OP,32:GOSUB 2500 

GOSUB 4100 

FOR 1=1 TO 1000:NEXT I 

PRINT " {Clr 3°down}THE J _SPELL_ e .HAS_ L EXPIRED! " 

PRINT " (down) YOU^CAUGHT " ;NM ; "DEMON" ; 

IF NMOl THEN PRINT "S"; 

PRINT "i":FOR 1=1 TO 100: NEXT I 

GET T$:IF T$<>"" THEN 2035 

PRINT " { do wn } WANT_ 1 _TO J _PLAY_ 1 .AGAIN ?j. " ; : GOSUB 60000 

IF LEFT$(IN$,1K>"N" THEN 300 

PRINT "(clr 2°down}":END 

FOR 1=1 TO 20:FOR J=l TO 10:NEXT J:POKE FQ,PC:PC=PC-4:NEXT 

RETURN 

POKE CT, 16: POKE TN, 15: POKE FQ,PC:IF PC=0 THEN RETURN 

POKE FQ,0:POKE TN,0:POKE CT,0:RETURN 

POKE OP, 215 

PC=0:GOSUB 4000 

FOR K=l TO 250 STEP 2: POKE FQ,K:NEXT 

GOSUB 4100 

NM=NM+1 

RETURN 

T$="":FOR 1=1 TO WD-3 :T$=T$+" {@} " :NEXT I 

PRINT "{clr 0}";T$;"{. left ins @}" 

FOR 1=1 TO 23:PRINT " {] } " ;TAB(WD-2) ; "{] left ins}":NEXT I 

PRINT " {-}";T$;"{= left ins @ home}" 

FOR K=l TO 70 

W=INT(RND(l)*(WD*23-2)+WD+l) 

IF PEEK(32768+W)<>32 THEN 10040 

POKE 32768+K,214 

NEXT 

RETURN 

IN$=V":ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( VU} " , ZC,1) ; " Qef t } " ; :ZC=3-ZC: 

ZT=TI+15 

GOTO 60010 
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60070 

60080 

60090 
60100 
60110 
60120 

60130 

60140 
60200 
60205 
60210 
60220 
60230 
60240 
60250 
60260 

60265 
60270 
60300 
60400 

60410 
60420 
60500 
62000 
62005 
62010 
62030 
62040 
62050 
62100 
62110 
62120 
62130 
62140 

62150 
62155 
62160 
62170 
62180 
62190 
62200 
62201 

62202 



"{left}";: 
Z$;: 



Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "^{lef t } " ; : 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>254 THEN 60010 

IN$=IN$+Z$: PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) .-PRINT 

GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZLrPRINT 

NEXT Z:GOTO 60000 

GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500 

PRINT "PRESS^J rvs } RETURN { of f ^TO.*." ; 

IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 

PRINT "CONTINUE:"; 

GET T$:IF T$="" THEN 60240 

IF PN=LP THEN 60300 

PN=PN+1 : PRINT " {clr } " ; PG$ ; "j.-^CURSORj.* " ;NM$ ; 

" *_,_ ( C ) A l 9 81 .LEPAGE " ; PN 

GOSUB 60500 

RETURN 

PRINT " {clr}";:GOSUB 60400 :GOTO 100 

CRT=32768:WD=40:CR$=CHR$(13) : PRINT " {clr } " :QP=515 : 

IF PEEK (50000) THEN QP=151 

POKE CRT,96:IF PEEK(CRT+1024) <>96 THEN WD=80: PRINT CHR$(142) 

RETURN 

FOR 1=1 TO 13: PRINT " {@@@} " ; :NEXT I: PRINT : RETURN 



PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
IF 



"{Clr 2° 
"{down} 



down}" ;TAB(15-LEN(PG$)) ;PG$;'V 
^CURSOR*.* 1 l^COP YRI GHT^. ( C ) , 



^.BY^KEN. 
.1981" 



.MORLEY" 



60500 

" { do wn } CAPTU RE^TH E^ESCAPED^DEMONS " 
" {2°down}WANT A DIRECTIONS? A "; :GOSUB 60000 
LEFT$(IN$,1K>"Y" THEN 60300 
LP=3:GOSUB 60200 

PRINT "IN J .THE A MIDST A OF J .A J .DEMONSTRATION A OF J .A i .NW{left ins}E" 
PRINT " {down}SPELL A AT A THE^WIZARDS,_JtfARLOCKS_ t AND_ 1 _SOR-" 
PRINT " {down}CERERS A CHOWDER ll .AND A MARCHING J .SOCIETY, A AN" 
PRINT " {down}ACCIDENT A OCCURRED /J .PERMITTING J .THE A ESCAE{lef t 
ins}P" 

PRINT " {down}OF A SOME_,_DEMONS. ^FORTUNATELY, ^THE^SPELL" 
PRINT " {QOwn}WAS A SET J _UP J _SO J _THAT A IT A WILL 1 _EXPIRE J _SOON. " 
PRINT " {down} ALSO, A ONLY A ONE A DEMON_ t _CAN Jt BE A LOOSE_ t _AT J .A" 
PRINT " {down}TIME_ t _(WHICH J j:S J _JUST_ t .AS J1 .WELL. . . ) .^YOUR" 
PRINT " {down} TASK^IS^TO^RECAPTURE^AS^MANY^DEMONS^AS " 
PRINT " {down} POSSIBLE_ 1 _BEFORE_ 1 _THE_ 1 _SPELL JL EXP IRES. " 
GOSUB 60200 

PRINT "THE J .DEMONS J .MUST{4°left down #### 
up } J.BEU.RECAPTURED ; ^IF^LEFT " 
PRINT " {down} FREE ,^THEY_ t WILL_ 1 _TRY_ t _TO J _FREE_ 1 _STILL_ 1 _MORE" 
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62203 

62210 
62220 
62230 
62240 
62250 
62260 
62270 
62310 
62320 
62330 

62340 
62350 
62360 
62370 
62380 
62390 
62400 

62410 



PRINT "{down}DEM0NS._ t THAT_ t .CANN0T{6 o left down ###### 

up ^BE^AL LOWED!" 

PRINT " {2°down}YOU^MAY A CONTROL^YOUR A MOVES_ t WITH_ 1 THE" 

PRINT " (down > NUMERTC . PAD . . TH E . NUMBER . PAD 7.8.9" 

PRINT TAB (35) ;"{M]N}" 

PRINT " MOVES A YOU^AS^SHCWN JU TO_ 1 _THE JU RIGHT . ^.4 { @Q@ } 6 " 

PRINT TAB (35) ; " {NlM}" 

PRINT "TO*.STOP_ t THE_ t GAME A EARLY, ^.PRESS^^^.1^2^3 " 

PRINT "{down}THE A {rvs}SPACE{off } A KEY." 

GOSUB 60200 

PRINT "IN_ t .THE_ 1 _GAME, ^YOU^WILL^BE^THE^.' {Q} ' , _J\ND" 

PRINT " {down}THE_ 1 _CURRENTLY_ 1 _ESCAPED_ 1 _DEMON_iWILL_ t _BE J _ ' {W} 

ins}'" 

PRINT " {down}WHEN A YOU^CAPTURE_ t _A J .DEMON,_ t IT_ 1 _IS_ 1 _FROZEN" 

PRINT " {down}IN J _PLACE, J _AND A MARKED_ t WITH J _ , {rvs W off}'., 

PRINT " {down}SPELL^ENDS, J _THE_ 1 _CURRENTLY J _ESCAPED_ t _DEMON" 

PRINT "{down}WILL_ 1 _BE_ 1 _SENT_ 1 _BACK_ t WHERE J _HE_ t .CAME_ t _FROM, " 

PRINT " {down} AND^WON ' T^BE^A^PROBLEM. _ t .ANY_ 1 _DEMONS_iWHO" 

PRINT " {down}WERE J .FREED A BY JU A J .DEMON Jl .WILL J .REMAIN f juAND" 

PRINT " {down}WILL JU BE J _A J .VERY J J J ARGE{5°left down ##### 

up ^PROBLEM, {down} " 

GOSUB 60200 



{left 



.WHEN^THE 1 
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FERRY 




By John Matarella 



Your mission is to ferry supplies through 
an asteroid belt to a starving, desperate 
mining base in space. Since the people 
at the base are dying by the minute, you must try 
to cross through the belt as fast as you can. You 
have five remote-controlled ships that travel one 
at a time across the asteroid belt. 

Your ships can travel forward and backward as 
you try to avoid asteroids. You move forward by 



pressing [6], and backward by pressing [4]. When 
neither key is pressed, the craft doesn't move, 
but an encounter with an asteroid means the end 
of that ship. Since the asteroids are always 
moving, you must be quick to survive. 

Your score is based on your speed, how far you 
get across the asteroid belt, and how many ships 
survive. Your high score is saved, so you can play 
several games and watch yourself improve. 





6 

10 

90 

100 

110 

120 

130 

140 

150 

310 

320 

330 
335 
340 
350 
360 
370 
380 

400 
405 
420 
430 
440 
450 

455 

460 
465 
466 
480 



CLR:POKE 59468,12 

REM FERRY COPYRIGHT (C) 19 81 THE CODE WORKS 

REM AS OF 10/6/81 RJ 

PG$ = "FERRY!":NM$= ,, 13 n :GOSUB 62000 

CL=59468:MS=2 

DEF FN R(X)=INT(RND(1) *X+1) 

R=5:NS=5 

SD=0:PRINT " {2°down}WANT J .SOUND? J ." ; :GOSUB 60000 

IF IN$="" THEN PRINT "{up 12°right }N" 

IF LEFT$(IN$,1)="Y" THEN SD=16 

PRINT "{down}HCW^HARD_ 1 _(l=EASY,_ t 9=HARD) J _?_ t ";:GOSUB 60000 

IF IN$= ,,n THEN IN$=STR$(R) : PRINT " {up} "TAB (28) R: FOR 1=1 TO 500: 

NEXT 

R=VAL(IN$) :IF R<1 OR R>9 GOTO 310 

SF=(R-1)/8*(MS-1)+1 

TD=0:W=0:YY=0:L=0:T=0:TL=0 

P=32768+R*WD*2 

SS=P 

PRINT " {clr}" 

FOR 1=1 TO 24:PRINT TAB(FN R(37) +1) ; ". {up} " :PRINT TAB( 

FN R(37)+l) ;".":NEXT I 

T=T+1:CC=0 

POKE 59467, SDtPOKE 59464, 0:POKE 59466,15 

CC=CC+1 

POKE P,62 

OP=P 

POKE QP,255:GET A$:A=0:IF A$<>" n THEN A=ASC(A$):IF A$="Q" THEN 

POKE 59467, 0:GOTO 800 

XY=15:XX=255:IF A=52 OR A=54 THEN XX=128+SS-P:XY=9: IF A=52 THEN 

XY=5 

POKE 59464, XX:POKE 59466, XY 

IF A=54 THEN P=P+1 

IF A=52 THEN P=P-1 

IF P>=SS+39 THEN 710 
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490 IF P<SS THEN P=SS 

500 POKE OP, 32 

520 PRINT TAB(FN R(37) +1) ; ". {up} " :PRINT TAB(FN R(37) +1) ; ". " 

530 IF PEEK(P)<>46 THEN 420 

570 L(T)=P-SS 

575 PRINT " {home }"; TAB ( 25 ) ; "YOU_._BLEW_._IT! " : PRINT TAB(25) ; "SHIP___#" ;T 

580 POKE CL,12 

590 POKE 59467, SD.-POKE 59466,15 

600 FOR 1=50 TO 250 STEP 3 

610 POKE P,42 

620 POKE 59464,1 

630 POKE P,62 

640 NEXT I 

670 GOTO 730 

710 POKE OP,32:XX=0 

715 PRINT " {home}" ;TAB(25) ; "SUCCESS! ".PRINT TAB (25) ; "SHIP___#" ;T 

720 POKE QL,24 

725 W=W+1:L(T)=40 

730 POKE 59466, 0.POKE 59467,0 

740 POKE P,32 

745 GET T$:IF T$<>"" THEN 745 

750 D=((P-SS)T2)/CC:TD=TD+D:GOSUB 1300:PRINT " {home}SCORE: " ; YY 

755 D=TD:GOSUB 1300:PRINT "TOTAL___SO J _FAR: " ;YY 

760 PRINT "{home 23 °down} PRESSMAN Y^KEY^TO^." ; 

765 IF T=NS THEN PRINT " SEE^. SUMMARY. " 

770 IF T<NS THEN PRINT "LAUNCH___NEXT___SHIP. " 

775 GET T$:IF T$="" THEN 775 

777 IF T$="Q" THEN 800 

780 IF T<NS THEN P=SS:GOTO 350 

800 PRINT "{clr down}YOU___WERE_ t GIVEN" ;T; "SHIPS_ t TO__.PILOT___TO" 

805 PRINT "THE J _ASTEROID J _BASE. J _";W; "SHIP";:IF WOl THEN PRINT "S"; 

808 PRINT "...SURVIVED. " 

810 D=TD:GOSUB 1300 

815 IF W=0 AND SD>0 THEN GOSUB 900 

830 PRINT "{2°down}YOUR_ t SCORE=";YY 

835 IF YY>HY THEN HY=YY 

837 PRINT "{2°down}HIGHEST_ t SCORE= J .";HY 

850 GET T$:IF T$<>"" THEN 850 

860 PRINT 

870 PRINT "DO^YOU^WANT^TO^P LAY ^.AGAIN ?__."; 

875 GOSUB 60000 

885 IF LEFT$(IN$,lX>"N"GOTO 310 

890 END 

900 RESTORE :A=20 

905 PRINT " {down}WE J _SHALL J _NOW J _HONOR J _THOSE__.COMPUTERS_ t THAT" 

906 PRINT "GAVE_ t THEIR J .LIVES_ t FOR J .THE_ t TRAINING J .OF" 

907 PRINT "THIS^AHEM. . . ) ^.PILOT. " 

910 POKE 59467, 16.POKE 59464, 0:POKE 59466,104 

92 READ C,T,Z 

930 T=T*A:Z=Z*A 

940 POKE 59464, C:FOR 1=1 TO T.NEXT I 
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950 

960 

970 

1200 

1210 

1220 

1230 

1300 

60000 

60010 

60020 

60030 
60070 

60080 

60090 
60100 
60110 
60120 

60130 

60140 
60200 
60205 
60210 
60220 
60230 
60240 
60250 
60260 

60265 
60270 
60300 
60400 
60410 
60420 
60430 
60450 
60500 
62000 
62010 
62020 
62030 
62080 
62090 
62100 
62110 



(Z AND 127X32 THEN PRINT "j_{lef t } " ; : 



{left} 



Z$; 



POKE 59464 ,0:FOR 1=1 TO Z:NEXT I 

IF Z>0 THEN 920 

POKE 59466, 0:POKE 59467 ,0:RETURN 

DATA 237, 10, 1,237,5,1, 177, 20, 5, 237,10, 1,177,5, 1,140,20,5 

DATA 237,10,1,177,5,1,140,15,2,237,10,1,177,5,1,140,15,2 

DATA 237,10,1,177,5,1,140,25,5,177,10,1,140,5,1,118,25,1 

DATA 140,20,1,177,15,1,237,25,1,237,20,1,237,10,1,177,25,0 

YY=INT ( (D*SF) / (39*MS*NS) *1000) :RETURN 

IN$="j_":ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<> ,,,, THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( "_,_{& } ", ZC, 1) ; " {lef t } " ; : ZC=3-ZC : 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) :IF 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>254 THEN 60010 

IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$, ZL-1) :PRINT ' 

GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT 

NEXT Z:GOTO 60000 

GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500 

PRINT "PRESS J _{rvs}RETURN{off}_ t _TO J _"; 

IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 

PRINT "CONTINUE:"; 

GET T$:IF T$="" THEN 60240 

IF PN=LP THEN 60300 

PN=PN+1 : PRINT " {clr } " ; PG$ ; "j_-j_CURSORj_# " ;NM$ ; 

"j___JC)j_1981j______PAGE";PN 

GOSUB 60500 

RETURN 

PRINT "{clr}":CLR:GOSUB 60400 :GOTO 100 

CRT=32768:CR$=CHR$(13) :WD=40: PRINT "{clr}" 

POKE CRT,96:IF PEEK(CRT+1024) <>96 THEN WD=80:PRINT CHR$(142) 

QP=515:QL=245:CR$=CHR$(13) 

IF PEEK(50000) THEN QP=151:QL=216 

RETURN 

FOR 1=1 TO 13:PRINT " {@§@} " ; :NEXT I:PRINT :RETURN 

PRINT "{clr 2 ° down } " ; TAB ( 1 5 -LEN ( PG $ ) ) ; PG $ ; " j_j_B Yj_JOHNj_MATAREL LA " 

" {QOwn} J _ t _ t ^ J .CURSOR J .#13 iJ .COPYRIGHT J .(C) j.1981 " 

60500 

"{down}CARRY___SUPPLIESj_TOj_raE___ASTEROID___OUTPOST" 

"{2 o down}WANTj.DIRECTI0NS?___";:G0SUB 60000 
IF LEFT$(IN$,1X>"Y" THEN 60300 
LP=3:GOSUB 60200 
PRINT " FAR._OUTj.INj.TH E___AS TEROID S , j_Aj.SMALLj.GROU P " 



PRINT 
GOSUB 
PRINT 
PRINT 
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62120 


PRINT 


62130 


PRINT 




ins}A 


62140 


PRINT 


62150 


PRINT 


62160 


PRINT 


62170 


PRINT 


62180 


GOSUB 


62190 


PRINT 


62200 


PRINT 


62210 


PRINT 


62220 


PRINT 




down}. 


62230 


PRINT 


62240 


PRINT 




ins}E 


62250 


PRINT 


62260 


PRINT 


62270 


GOSUB 


62280 


PRINT 


62290 


PRINT 


62300 


PRINT 


62310 


PRINT 




down}. 


62320 


PRINT 


62330 


PRINT 


62340 


PRINT 


62350 


PRINT 


62360 


PRINT 


62370 


GOSUB 



" {down}OFjJ>EOPLEjJ!AVEj_SETj_UPj_Aj.MININGj.COMPANY. " 
Mdown}LIKEj_MOSTj.OTHERj_PEOPLErjJHEYj_NEEDj_TOj_ET{left 

" { do wn } OC CAS I ONAL L Y . jj_YOU j_HAVEj_B E ENj_G I VENjTH E " 
" {down}RESPONSIBILITYj_OFj_DELIVERINGj,NEEDED" 
" {down } SUPPLIESj_TOj_THEj_BAS Ej_OUTj.INj_THEj_ASTER- " 
" {down}OIDS." 
60200 

"SINCEj.PILOTINGj.THROUGHj.THEj.ASTEROIDj.BETUeft ins}L" 
" {down} IS^HAZARDOUSr^AND^THERE^ARE^TOO^MANY" 
"{down}PEOPLEj_INVOLVEDj.TOjJU J LOWj_ANYj_RISKj_TO" 
"{down} LIFE ,j_REMOTEj_CONTROLj_SHIPS{ up left ### 2°left 
L AREj_USED. " 

" { 2 °down } YOURj_TAS Kj_IS j_TOj_NAVIGATEj_TH Ej_SUPPLY " 
" {down}SHIPSj_THROUGHj.THEj_ASTEROIDSj_TOj_THEj_BAS . { left 

" {down}THEREj_AREj_FIVEj_SHIPS , j_ANDj.THEYj_FLYj_ONE- n 
"{down}AT-A-TIMEj_(THEj_EASIERj_TOj_CONTROLj_THEM) . " 
60200 

"YOURj.SCREENj.WILLj.SHOWj.YOUj.THEj.PATHj.OFj.A" 
" {down} SHIP, j_ANDj_THEj_ASTEROIDSj_THATj_ITj_PASSES. " 
" {down}TOj_MOVEj_THEj_SHIPj_FORWARDj.(RIGHT) , J.PRESS" 
" {down}THEj_{rvs}6{off left up $ 
j_KEY , j_ANDj_TOj_MOVEj_ITj_BACKj_ ( LEFT ) " 
"{down}PRESS J .THE J .{rvs}4{off left up $ down}j_KEY. " 
" { 2 °down} YOUjJtf ILLj3Ej.AWARDEDj_Aj_RATINGj_DEPENDING " 
" { do wn } ONj.HOWj.QU I C KL Y^YOU ^.G ET^TH E A SU PPL I E S " 
" {down}THROUGH f j.ANDj.HOWj.FEWj.SHIPSj.YOUj.DESTROY. " 
TAB (14) ;"{2°down}GOODj_LUCK! " 
60200 
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BAT 




By Chris Nadovich 



Life isn't easy for a bat, as you'll find out in 
this game. You have to avoid bouncing off 
walls, make quick decisions about good- 
tasting and bad-tasting bugs, keep beating those 
little wings, and avoid starving to death. As a bat, 
you need to fly around and eat insects. Some of 
the insects are tasty, and will help you stay alive. 
But the so-called "dirt bug" is worthless junk 
food, and "lint" actually reduces your current 
calories by half. 

The insects have the following values: 



e 



Elephant bug 
Buffet beetle 
Feast fly 
Lint 
Dirt bug 



25 calories 
10 calories 
doubles calories 
halves calories 
worthless 



To liven things up a bit, the radar of this 



species of bat doesn't work very well, so it has 
evolved a very effective ability to fly into walls in 
the dark and bounce off. 

To control the bat, you use the numeric pad in 
the usual manner, so that [8] means up, [6] 
means right, and so on. Note that pressing the 
button merely applies force; it does not 
necessarily cause an immediate change in 
direction. For example, if the bat is moving left, 
and you hold down [6] to move right, it must first 
slow down and stop before it starts moving right. 
That's why this game is so difficult. 

To apply a force for a long time, just hold down 
the button for a while. You don't need to let it up, 
except to change the direction of the applied 
force. 

Remember, all the time you're flying, you're 
burning calories. We'll put 50 calories in your 
tank to start you off. 




6 
10 
90 
100 
101 
105 
110 
120 
130 
140 
160 
200 
210 
220 
250 
500 
510 
600 
610 
620 
630 
640 
700 
1000 



CLR:POKE 59468,12 

REM BAT! COPYRIGHT (C) 1981 THE CODE WORKS 

REM AS OF 10/6/81 RJ 

PG$="BAT!" :NM$="14" :GOSUB 62000 

PRINT " {down}WANT J _SOUND?_ t _";:GOSUB 60000 

IF IN$="" THEN PRINT TAB (12) ; " {up}N" :FOR 1=1 TO 500:NEXT 

PRINT " {Clr}" 

SD=0:IF LEFT$(IN$,1)="Y" THEN SD=16 

POKE 59467, SD:POKE 59466, 15:POKE 59464,0 

DIM T(29):FOR 1=0 TO 29 :T (I) =INT (257/ (2T (1/12) ) -1 .5 ) :NEXT I 

Q8=59464 

D(1)=26:D(2)=18:D(3)=25:D(4)=42:D(6)=41:D(7)=58:D(8)=50:D(9)=57 

G=9.8:REM GRAVITATIONAL ACCEL. 

U=.3:REM FRICTION COEFF. 

A=20:REM THRUST ACCEL. 

U=1-U:G=G/ (9.8*4) :A=A/(9.8*4) 

RESTORE:GF=.142:TP=50 

TQ=TI:ZQ=59456:ZW=32:S0=8*16*16*16 

PRINT "(clr &&&&&&}CALORIES: JLJLJ _ t .{&&&&}TIME: J _ i _ tJ _ t {&&&&&&&} ,, ; 

FOR 1=1 TO 23: PRINT "{left down &}";:NEXT 

FOR 1=1 TO 39: PRINT "{2°left &}";:NEXT 

FOR 1=1 TO 24: PRINT "{up left &}";:NEXT 

PRINT "{home}":GOSUB 2000 

X=20:Y=12:VY=0:VX=0 

K=S0+INT (X+.5) +WD*INT (Y+.5) 
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1010 R=PEEK(K) :TP=TP-GF*(TP/50+l) 

1020 IF Q9=l THEN N=255:Q9=0:GOTO 1040 

1030 IF Q9=0 THEN N=127 :Q9=l:GOTO 1040 

1040 IF R=32 GOTO 1150 

1090 IF R=214 THEN TP=TP+25:POKE Q8,T(21) :GOTO 1140 

1100 IF R=88 THEN TP=TP+10 :POKE Q8,T(24) :GOTO 1140 

1110 IF R=83 THEN TP=TP*2:POKE Q8,T(29) :GOTO 1140 

1120 IF R=42 THEN POKE Q8,T(1) :TP=TP/2 

1140 GOSUB 4000 

1150 POKE K,N 

1180 POKE QP,255:GET Q$:IF Q$="" THEN 1600 

1182 IF Q$="Q" THEN 3020 

1185 C=ASC(Q$)-48 

1190 TP=TP-GF*A 

1250 IF C=6 THEN POKE Q8,T(9) :VX=VX+1*A:Q=Q-128 :GOTO 1600 

1300 IF 02 THEN POKE Q8,T(17) :VY=VY+l*A:Q=Q-64 :GOTO 1600 

1400 IF C=4 THEN POKE Q8,T(12) :VX=VX-l*A:Q=Q-32:GOTO 1600 

1500 IF C=8 THEN POKE Q8, T(5) :VY=VY-1*A 

1600 VY=VY+G:NY=Y+VY:NX=X+VX:POKE Q8,0 

1700 IF NX>38 THEN NX=38 :VY=U*VY:VX=-VX*U 

1750 IF NX<1 THEN NX=1:VY=U*VY:VX=-VX*U 

1800 IF NY>22 THEN NY=22:VX=U*VX:VY=-VY*U 

1850 IF NY<1 THEN NY=1:VX=U*VX:VY=-VY*U 

190 Y=NY:X=NX 

1910 IF TP<0 GOTO 3000 

1920 N=32:POKE K,N 

1930 IF Q9=l GOTO 1990 

1940 POKE Q8,0 

1950 PRINT " {home}";TAB(15) ;INT(TP) ;" {left }_,_": PRINT "{home}"; 

TAB (28) ;INT((TI-TQ)/60) ; " {lef t }^ n 
1990 GOTO 1000 
2000 FOR 1=1 TO 5 
2010 READ BG,BN 
2015 GB(I)=BG 
2020 FOR J=l TO BN 
2030 BX=2+INT(36*RND(D) 
2040 BY=2+INT(21*RND(1) ) 
2050 POKE (S0+BX+BY*WD) f BG 
2060 NEXT 
2070 NEXT 
2080 DATA 214,5,88,4,42,5,83,4,65,3 

2999 RETURN 

3000 REM DUST TO DUST 

3001 PRINT "{home 10°down} ";TAB(14) ; "{rvs}YOU_ 1 _ARE_ t _DEAD{of f }" 

3002 RESTORE 

3003 FOR 1=1 TO 5: READ Q5,Q4:NEXT 

3005 FOR K=l TO 11 

3006 READ Q5,Q4 :Q4=200*Q4 

3007 POKE Q8,T(Q5) 

3008 FOR J=l TO Q4:NEXT 

3009 POKE Q8,0 
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"{left}";:ZC=3-ZC: 



(Z AND 127X32 THEN PRINT "...{left}"; 



"{left}"; 
Z$; 



3010 NEXT 

3012 DATA 5,4,5,3,5,1,5,4,8,3,7,1,7,3,5,1,5,3,4,1,5,4 

3020 GET RJ$:IF RJ$<>"" THEN 3020 

3030 PRINT "{clr 2°down}WANT J .T0 A TRY J .AGAIN? A " ;:GOSUB 60000 

3040 IF LEFT$(IN$,1X>"N" THEN 500 

3050 POKE 59467, 0:PRINT "{clr}":END 

4000 BX=2+INT(36*RND(1) ) 

4040 BY=2+INT(21*RND(1) ) 

4050 POKE (S0+BX+BY*WD) ,GB(INT (RND(l) *5+l) ) 

4999 RETURN 
60000 IN$='V :ZT=TI:ZC=2:ZD$=CHR$(20) 
60010 GET Z$:IF Z$<> ,,n THEN 60070 
60020 IF ZT<=TI THEN PRINT MID$ ( "*_{&} " , ZC, 1) 

ZT=TI+15 
60030 GOTO 60010 
60070 Z=ASC(Z$) :ZL=LEN(IN$) : IF 

GOTO 60110 
60080 IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 
60090 IF ZL>254 THEN 60010 
60100 IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

60110 IF Z=13 THEN IN$=MID$ (IN$ ,2) :PRINT CR$;:RETURN 
60120 IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT 

GOTO 60010 
60130 IF Z=141 THEN Z$=CHR$ (-20* (ZL>1) ) :FOR Z=2 TO ZL:PRINT 

NEXT Z:GOTO 60000 
60140 GOTO 60010 
60200 IF PN=0 THEN 60250 
60205 GOSUB 60500 

60210 PRINT "PRESS J _{rvs}RETURN{off}_ 1 .TO J _"; 
60220 IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 
6023 PRINT "CONTINUE:"; 
60240 GET T$:IF T$="" THEN 60240 
60250 IF PN=LP THEN 60300 
60260 PN=PN+1:PRINT " {clr } " ;PG$ ; V-j.CURSORj.*" ;NM$ ; 

" ^. ( C ) ^.19 81 ^^.PAGE " ; PN 
60265 GOSUB 60500 
6027 RETURN 

60300 PRINT "{clr}":CLR:GOSUB 60400 :GOTO 100 
60400 CRT=32768 :CR$=CHR$ (13) :WD=40: PRINT "{clr}" 

60410 POKE CRT, 96: IF PEEK (CRT+1024) <>96 THEN WD=80:PRINT CHR$(142) 
60420 QP=515:CR$=CHR$(13) 
60430 IF PEEK(50000) THEN QP=151 
60440 RETURN 

60500 FOR 1=1 TO 13:PRINT " {§@@} " ; :NEXT I:PRINT :RETURN 
62000 PRINT "{clr 2°down} " ;TAB(15-LEN(PG$) ) ;PG$; "^.BY^C.T.. 
62010 PRINT "{down} J _ tJUJlJ .CURSOR J .#14 J _ t .COPYRIGHT A (0^.1981" 
62020 GOSUB 60500 

62030 PRINT " {down}REDUCE A THE J .LOCAL J .INSECT J .POPULATION" 
62080 PRINT " {2°down}WANT A DIRECTIONS? J ." ; :GOSUB 60000 
62090 IF LEFT$(IN$,1X>"Y" THEN 60300 



JJADOVITCH" 
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62100 
62110 
62120 

62130 

62140 
62150 

62160 
62170 
62180 

62190 
62200 
62210 
62220 
62230 
62240 
62250 
62260 
62270 
62280 
62300 
62310 
62320 
62340 
62350 
62360 

62370 

62380 
62390 
62400 
62410 
62420 

62430 
62440 
62450 
62460 
62470 
62480 

62490 
62500 



62510 
62520 



LP=4:GOSUB 60200 

PRINT "OVER_ t _THE_ t YEARS,_ 1 _RADIO-CONTROLLED J _MODELS{down} " 

PRINT "HAVE J _BECOME_ t EVER 1 _MORE J _SOPHISTICATED. A TE{ lef t 

ins}H(down} " 

PRINT "LATEST_ 1 _DEVELOPMENTS J _ARE J .SO J _LIFEL IKE^THT { left 

ins) A {down} " 

PRINT "THEY_ u SEE^ALIVE. J _YOU_ t .WILL_ 1 _SOON_ 1 _HAVE J _A{down} " 

PRINT "CHANCE_ 1 _T0. 1 _TRY J _ONE_ t _OUT . _ 1 _THE_ t _MODEL , _,_CALLD{ lef t 

ins }E {down} " 

PRINT "THEj. ' SUPERBAT • , _ 1 _COMES_ t IN_ 1 _THE_ 1 _FORM J _OF_ t A{down} " 

PRINT "BAT, A AND^IS^LSO^A J _GAME_ t OF_ 1 _SKILL. J .THE {down} " 

PRINT "AIR^IS^FILLED^WITH^.' INSECTS' ^FROM^A^DI - { lef t 

ins }S {down}" 

PRINT "PENSER^CAVAILABLE^ATj.EXTRA^.COST) , JL WHICH{down} " 

,, THE_ 1 .SUPERBAT J _MUST J _EAT_ 1 .TO. J _STAY_ L ' ALIVE' . " 

60200 

"THEj. • INSECTS ' J .HAVE J .VARIOUS J .CALORIC{down} " 

"VALUES fJ .AS^FOLLOWS: {down} " 

"^(rvs V off}_ 1 _-_ 1 _ELEPHANT_ 1 _BUG J _ tJL _ tJ _25 J _CALORIES{down}" 
{ X } J .- J .BUFFET J .BEETLE JJ _ tJ .l O^CALORI ES {down } " 

{S}.-. FEAST. FLY DOUBLES. CALORIES {down} " 

* . - . L INT HALVES . CALORI ES {down} " 



PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 



" . . {A} .-.DIRT. BU G W ORTH LESS {down} " 

"TCvLIVEN^THINGS^UP, J _THE_«_SUPERBAT. ± .IS {down} " 

"COATED JL WITH_ t HIGH-RESILIENCY_i.RUBBER,_ t _SO{down}" 

"THAT J .IT J _BOUNCES_„EXTREMELY_ t .WELL. n 

60200 

"TO J .CONTROL J .THE^.SUPERBAT /J .YOU J .USE A THE {down} " 

"NUMERIC_ 1 _PAD_ t IN J .THE_ 1 _USUAL J _MANNER, ^SO^THT { left 



ins} A {down}" 

PRINT 

" { rvs } 8 { Of f } ...MEANSjJJP, _,_{ rvs } 6 { Of f } _».MEANS_JRIGHT , Jt AND_ t _S0. 1 _ON. { down} " 

PRINT • I NOTE J .THAT J .PRESSING J .THE J .BUTTON^.MERELY{down} " 

"APPLIES J .FORCE. J .IT J .DOES J .NOT J .NECESSARILY{dOwn}" 
"CAUSE_ t AN. 1 _IMMEDIATE J _CHANGE J _IN_ 1 _DIRECTION. {down} " 
"FOR^EXAMPLE ,_ 1 _IF J _THE.».SUPERBAT J _IS J _MOVING {down} " 
"LEFT , J _AND J _YOU J .HOLD_ 1 _DOWN J _{ rvs } 6 { of f } J .TO J _MOVE*.RIGH , { lef t 

ins }T {down}" 

PRINT " IT^MUST^F IRST^SLOW^DOWN^AND^STOP^BEFORE { down } " 
"ITj.STARTSj.MOVING^.RIGHT. " 
60200 

"TO J _APPLY_ t A ± FORCE. t FOR J .A ± .LONG J TIME ^JUST { down } " 
"HOLD J .THE J .BUTTON J .DOWN J .FOR J .A J .WHILE. J .YOU {down} " 
"DON , T J .NEED J .TO J .LET J .IT J .UP J .EXCEPT J .TO J .CHANE{ left 

ins }G {down}" 

PRINT "THE_ t .DIRECTION_ t OF J1 _THE_ 1 _APPLIED J _FORCE . {down} " 

PRINT 

"ALSO, J .THE J .{ rvs } 1 {of f } , A { rvs } 3 { of f } , A { rvs} 7 { of f } , J .AND J .{ rvs} 9 

{Of f }_ t KEYS A DON'T_ i _DO{down} " 

PRINT "ANYTHING J .EXCEPT J .GET J .IN^.THE^WAY. {down}" 

PRINT " {down}REMEMBER J THAT J _GRAVITY J _WILL_ 1 _EVENTUALLY{down} " 



PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
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62530 PRINT "PULL J .THE J .SUPERBAT J .TO J .THE J .FLOOR J .IF A YOU{down} " 
62540 PRINT "DON'Tj.PUSH^IT^UP^OCCASIONALLY. " 
62550 GOSUB 60200 
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By Malcolm Michael 



In NAB, you are transported to a race track 
you might remember from visits to your 
local computer-game arcade. The race 
track is littered with small silver coins (shown as 
c ' + ' ' marks) , and your car is equipped with a 
vacuum to pick them up. You may keep as many 
as you can collect. Moreover, your opponent is 
trying to distract you by dropping more coins as 
he goes around. Your kind of race, huh? There is 
one catch we haven't mentioned — you and he 
are going in opposite directions, and he's doing 
his best to run head-on into you. In other words, 
your objective isn't to win, but rather to survive. 
(By the way, you can't survive, either. The race 
continues until he gets you.) 

Your car is a white Porsche (shown as a solid 
white circle), and his is a black Ferrari (shown as 
a black circle with white border). The track has 
five lanes which are separated from each other by 
large steel slabs. In the four shaded areas, the 
slabs have been removed, allowing you to change 
lanes. Since your car is always moving, you need 
only change lanes by using the numeric pad in the 
usual fashion. 



Each coin you pick up gives you ten points. If, 
by some miracle, you collect 1,000 points, he 
starts putting down gold coins (shown by a 
diamond) that are worth 20 points each. 




1981 THE CODE WORKS 



CLR:POKE 59468,12 

6 REM NAB! COPYRIGHT (C) 

10 REM AS OF 10/6/81 GF 

90 PG$ = ,, NAB!" :NM$ = "16" :GOSUB 62000 
100 TR=1:CS=0:HS=0 
110 P1=59464:P2=59466:P3=59467 

120 V1=1:V2=32:V3=102:V4=230:V5=93:V6=64:V7=WD*2:V8=96 
130 DIM D(3):POKE P3 f 16:POKE P2,15 
140 PRINT " {clr}":S$=" {4°right}" 

150 PRINT " {home} ,, ;S$; ,, {0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.}" 
160 PRINT S $ " { ] } + JL + JL + JL + J _+ J _+ J _+ {&&&&&} + J _+ J _+ J _+ J _+ J _+^+ { ] } " 

170 print s$"{]} J .{oeeee§eeeee§&&&&&eeee§eeeeee.}^{]}" 

180 PRINT S$" {]} + {] }+ Jt .+ J .+ J .+ J _+ Jt .+ {&&&&&}+ J- +^+^+ J „+ J .+ {] } + {] }" 

190 PRINT S$"{]} Jt .{]} Jt .{0@@@@@@@@@&&&&&@@@@@@@@@.} J .{]} J .{] }" 

200 PRINT S$" {]} + {]} + {] }+ J _+ JL + JL + JL +{&&&&&}+ Jt .+ Jt _+ J _+ J .+ {] } + {]} + {] }" 

210 PRINT S$ ,, {]} J _{]} JI .{]} J _{0@@@@@@@&&&&&@@@@@@@.} J .{]} J .{]} J .{]} ,, 

220 PRINT S$"{] } + {]} + {] } + {] }+ J _+ J .+ J .+ {&&&&&}+ Jt .+ Jt .+ J .+ {] } + {]} + {]} + {] }" 

230 PRINT S$" {] }^{] }^{] }^{] } J _{0@@@@@&&&&&@@@@@. }^{] }^{] }_,_{] }„_{] }" 

240 PRINT 

SS"{]} + {]} + {]} + {]} + {]}+ J .+ J .+ {&&fi&&}+ J .+ J .+ { ]} + {]} + { ]} + {]} + {]}" 

250 PRINT S$"{] rvs &&&&&&&& of f }^{ 0@@@@@@@@@@@. }.*_{ rvs &&&&&&&& 
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Off ]}" 

260 PRINT S$"{] rvs &&&&&&&&& off ] }+_«_+N+A+B +_,_+{ ] rvs &&&&&&&&& 

off ]}" 
270 PRINT S$" {] rvs &&&&&&&&& off 1 rvs } GAME {&&} SCORE {off ] rvs 

&&&&&&&&& off ] }" 
280 PRINT S$"{] rvs &&&&&&&&& off 1 ) {] rvs &&&&&&&&& 

off ]}" 
290 PRINT S$" {] rvs &&&&&&&& of f } J .{-@@@§@@@@@@@= right rvs &&&&&&&& 

off ]}" 
300 PRINT 

S$"{] } + {] } + {] } + {] } + {] }+ J _+ J _+{&&&&&}+ J _+ J _+{] } + {] } + {]} + {]} + {]}" 
310 PRINT S$" {] } A {] } J .{] }^{1 } J .{-@@@@@&&&&&@@@@@=} J .{] }_,_{] y^ll } JU {] }" 
320 PRINT S$" {] } + {] } + {] } + {] }+ J .+ J .+ J .+ {&&&&& }+ J .+ J .+ JU +{] } + {]} + {] } + {]}" 
330 PRINT S$" {]} J .{]} J .{]} J .{-@@@@@@@&&&&&@§@@@@@=} J .{]} J .{]} J .{] }" 
340 PRINT S$" {]} + {]} + {] }+ J .+ J .+ J .+ J .+ {&&&&&}+ J .+ J .+ J .+ J .+ {] } + {]} + {]}" 
350 PRINT S$"{]} JL {]} J .{-§@@8@@§@§&&&&&§88§88§§@«=} J .{]} JL {]>" 
360 PRINT S$"{] } + {]}+ J .+ J .+ J .+ J .+ J .+ {&&&&&}+ JU + Jt .+ J .+ J .+ J .+ {] } + {] }" 

370 print s$" {] } J .{-eeeee8888@8&&&&&@8e@e88@88e=} A {] }•• 

380 PRINT S $ " { ] } + J l+ j .+ J l+ j .+ J -+ J l+ {&&&&&} + J .+ J .+ J .+ J .+ J .+ J .+ { ] > " 

390 PRINT S$" {-8888888888880888888808888888888= home}" 

400 PRINT "{12°down}";TAB(15) ;MID$ (STR$ (TR) ,2) 

410 CRT=327 68 

420 K=CRT+23*WD+15+LEN(S$) :P=K+2 

425 DF=1 

430 D(0)=1:D(1) =-WD:D(2) =-1 :D(3) =WD 

440 DK=2:DP=0:TK=1:TP=1:V9=43 

450 SK=0:SC=0:FP=V3:FK=102 

460 POKE P1,0:POKE K,87:POKE P f 81:IF P=K THEN 690 

470 POKE Pl,SD:FOR P9=l TO 10:NEXT P9:POKE P1,0:SD=0 

480 C=PEEK(P+D(DP)) :IF C<>43 AND COV9 THEN 500 

485 IF C=43 THEN SC=SC+10 :SD=80 :GOTO 495 

490 SC=SC+20:SD=40 

495 PRINT " {up} "TAB ( 18 ) RIGHT $ ( " "+STR$ ( SC) . 8 ) ; C=V8 

497 IF SC>999 THEN V9=90 

500 IF C=93 OR C=64 THEN DP=DP+1:C=V2 : IF DP>3 THEN DP=0 

510 IF C=87 THEN 690 

520 POKE P f FP:FP=C:P=P+D(DP) : IF RND(1)>.85 THEN 600 

530 C=PEEK(K+D(DK)) :IF C=93 OR C=64 THEN DK=DK-1:C=V2: IF DK<0 THEN 

DK=3 
540 IF C=V8 THEN C=V9 
545 IF C=81 THEN 690 
550 POKE K,FK:K=K+D(DK) :FK=C 
552 IF COV3 AND COV4 THEN TL=DF:GOTO 600 
556 TL=TL-1:IF TL<0 THEN 600 

560 IF C=V3 AND TK<TP THEN K=K+V7*D (DK) :TK=TK+V1 
570 IF C=V3 AND TK>TP THEN K=K-V7*D (DK) :TK=TK-V1 
580 IF C=V4 AND TK<TP THEN K=K-2*D (DK) /WD:TK=TK+V1 
590 IF C=V4 AND TK>TP THEN K=K+2*D (DK) /WD:TK=TK-Vl 

600 IF FPOV3 AND FPOV4 THEN 680 

601 POKE QP,255:GET K$:IF K$="" THEN K$="5" 
603 IF K$= ,, Q" OR K$=" J ." THEN 780 



27 



PET FUN AND GAMES 

605 KB=ASC(K$)-48:MV=0 

610 IF KB<2 OR KB>8 OR (KB AND 1) THEN 680 

620 IF KB=8 AND FP=V3 THEN JS=P-WD*2 :TT=TP+SGN (D (DP) ) :MV=1 

630 IF KB=2 AND FP=V3 THEN JS=P+WD*2 :TT=TP-SGN (D (DP) ) :MV=1 

640 IF KB=4 AND FP=V4 THEN JS=P-2:TT=TP-SGN (D (DP) ) :MV=1 

650 IF KB=6 AND FP=V4 THEN JS=P+2 :TT=TP+SGN (D (DP) ) :MV=1 

655 IF MV=0 THEN 680 

660 IF MV THEN SD=151 

663 IF ABS(P-JS)<>2 AND ABS (P-JS) <>WD*2 THEN STOP 

670 IF PEEK(JS)=FP THEN TP=TT:P=JS 

680 DF=l+INT(SC/500) 

685 GOTO 46 

690 X=P-CRT : PRINT " {home}" ; 

700 Y=INT(X/WD) :X=X-Y*WD 

710 FOR A=l TO YrPRINT " {down} " ; :NEXT 

720 PRINT TAB(X-2) "{right CV}-{up 3°left M]N 2°down 3°left N]M 
home 3° down}" 

730 POKE P2,15 

740 FOR A=l TO 25: POKE Pi ,255: POKE Pi ,250: POKE Pi, 253 -.NEXT 

750 POKE P1,0:POKE P3,16:POKE P2,15 

760 TM=TI+150 

770 IF TKTM THEN 770 

780 GET A$:IF A$<>" " THEN 780 

790 IF SOHS THEN HS=SC 

80 CS=CS+SC 

810 PRINT "{clr 5 o down} A Y0UR_ 1 _SC0RE_ t F0R J _GAME"TR"WAS"SC;"{left}," 

820 PRINT 

" {down }^FOR t AN J .AVERAGE J .OF" INT (CS/TR+.5) "POINTS/GAME, {down} " 

830 PRINT " J _YOUR t HIGH J _SCORE_ 1 .SO J .FAR_ 1 _IS"HS; " Qef t } . " 

840 PRINT "{3°down}^DO^YOU^WISH 1 _TO_ t PLAY_ t AGAIN? J _";:GOSUB 60000 

850 A$=LEFT$(IN$,1) 

860 IF A$="N" THEN PRINT " {clr } " :GOTO 880 

870 FOR A=l TO 200 :NEXT:TR=TR+1 :GOTO 140 

880 POKE P2,0:POKE P3,0:POKE 59468,12 

890 END 
60000 IN$ = " J _":ZT=TI:ZC=2:ZD$=CHR$ (20) 
60010 GET Z$:IF Z$<>"" THEN 60070 
60020 IF ZT<=TI THEN PRINT MID$ ( "_,.{& } " , ZC, 1) ; " Uef t } " ; : ZC=3-ZC: 

ZT=TI+15 
60030 GOTO 60010 
60070 Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "^{left}";: 

GOTO 60110 
60080 IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$( (Z+128) AND 255) 
60090 IF ZL>254 THEN 60010 
60100 IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

60110 IF Z=13 THEN IN$=MID$ (IN$,2) :PRINT CR$;:RETURN 
60120 IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$, ZL-1) :PRINT "{left}";: 

GOTO 60010 
60130 IF Z=141 THEN Z$=CHR$ (-20* (ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 
NEXT Z:GOTO 60000 
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60140 
60200 
60205 
60210 
60220 
60230 
60240 
60250 
60260 

60265 
60270 
60300 
60400 
60410 
60420 
60430 
60440 
60500 
62000 

62010 
62020 
62030 
62080 
62090 
62100 



GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500 

PRINT "PRESS^CrvsJRETURNCoff L^TO., 



"BEGIN:"; :GOTO 60240 



THEN 60240 
60300 

" {clr } " ; PG$ ; V-^CURSOR^J ' 
PAGE";PN 



IF PN=LP THEN PRINT 

PRINT "CONTINUE:"; 

GET T$:IF T$="" 

IF PN=LP THEN 

PN=PN+1 : PRINT " {clr } " ; PG$ ; V-^CURSOR^J " ;NM$ ; 

".^.(0^1981., 

GOSUB 60500 

RETURN 

PRINT "{clr}";:GOSUB 60400 :GOTO 100 

CRT=32768:CR$=CHR$(13) :WD=40:PRINT "{clr}" 

POKE CRT,96:IF PEEK (CRT+1024) <>96 THEN WD=80: PRINT CHR$(142) 

QP=515:QV=1:CR$=CHR$(13) 

IF PEEK (50000) THEN QP=151:QV=2 

RETURN 

FOR 1=1 TO 13:PRINT " {@@@} " ; :NEXT I:PRINT :RETURN 

PRINT "{Clr 2°down}";TAB(15-LEN(PG$) ) ;PG$; 

"u-^BY^MALCOLM^MICHAEL " 

PRINT " {down}_ tJ _ 1 _^CURSOR J _#16. t _ 1 _COPYRIGHT J .(C)_ 1 _1981" 

GOSUB 60500 

PRINT " {downJA^RACE^AGAINST^DESTRUCTION. . . " 

PRINT " {2°down}PRESS JL {rvs}RETURN{off Ij.TOj.BEGIN" 

GET T$:IF T$="" THEN 62090 

GOTO 60300 
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HANOI 



By Glen Fisher 



Somewhere, secluded from modern 
civilization, a group of priests has been 
moving golden disks from one great golden 
pedestal to another. When they're done, so the 
story goes, the world will end. 

In the legend, there were three pedestals and, 
some say, 64 disks in a regular series (each disk 
slightly larger than the last). Initially, all the disks 
were on one of the three pedestals (with the 
largest at the bottom and the smallest at the top). 
The priests moved the whole pile to another 
pedestal, one disk at a time. There was one 
restriction placed on them: a disk could be placed 
only on top of a larger disk, never on a smaller one. 
With that restriction, assuming they could move 
one disk per second, it would take them more 



than a half trillion years to move the pile of 64 disks. 

HANOI is a much-simplified version of that 
task, with a much less cosmic ending; when you 
finish, only the program ends. However, the 
restrictions are the same. You may choose from 
two to seven disks in the pile. To make a move, 
just indicate from which pile you want to take the 
top disk, and on which pile you want the disk 
placed. HANOI won't allow you to make an 
illegal move. 

If you want to give up, type "Q" (for quit). 
When you're done, you'll be told how many 
moves you took, as well as the minimum number 
of moves necessary. 

Oh yes, the program is called HANOI because 
the priests were once thought to be in Hanoi. 




CLRrPOKE 59468, 12 :NM$="5" 

6 REM HANOI COPYRIGHT (C) 1981 THE CODE WORKS 

10 REM AS OF 10/6/81 RJ 

90 GOSUB 62000 
100 T$="{off ^(off $ off / off 9 off " rvs 8 rvs 7 
105 B$="{rvs $ rvs / rvs 9 rvs " off 8 off 7 off # 
110 DIM TP$(8) ,T$(8),BT$(8) ,B$(8) 
115 CR$ = ,,n 
120 FOR 1=1 TO 8 
130 C$=MID$(T$, 2*1,1) :C$=C$+C$+C$:C$=C$+C$+C$:C$=LEFT$(C$+C$,14) 



rvs #} n 
off}^" 
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140 TP$(I)=MID$(T$, 2*1-1, 1)+C$ 

150 C$=MID$(B$ f 2*1,1) :C$=C$+C$+C$:C$=C$+C$+C$:C$=LEFT$(C$+C$,14) 

160 BT$(I)=MID$(B$, 2*1-1, 1)+C$ 

170 NEXT I 

200 L$= M {rvs} J .(rvs 4 rvs ! off * off}..." 

210 R$="{off} J .{off 4 off ! rvs * rvs} x " 

220 DIM LF$(5),RT$(5) 

230 FOR 1=1 TO 5:LF$(I)=MID$(L$, 2*1-1, 2) :RT$ (I) =MID$ (R$, 2*1-1,2) : 
NEXT I 

500 PRINT :PRINT "HOW_ 1 _MANY_ 1 _DISKS J .(UP_ t .TO_ i _7) _..?_,_" ; :GOSUB 60000: PRINT 

510 IF IN$="" THEN PRINT "LET' Sj.USE^.3" : IN$ = "3" :FOR 1=1 TO 500:NEXT 

520 FOR 1=1 TO LEN(IN$) 

530 :T$=MID$(IN$,I,1) : IF T$>="0" AND T$<="9" THEN 550 

540 PRINT "NOU."^;" 'S^PLEASE. " :GOTO 500 

550 NEXT I 

560 N=VAL(IN§) : IF N>7 THEN PRINT " I^CAN ' T^HANDLE_ t .MORE J _THAN_ 1 _7 . " : 
GOTO 500 

570 IF N<2 THEN PRINT "DON'T J .BE_ t .RIDICULOUS! " :GOTO 500 

900 DN$="{home 20°down}" 

910 RT$="{14°right}" 
1000 FOR 1=1 TO 3:FOR J=0 TO 7 :P(I, J) =0:NEXT J:NEXT I 
1100 PRINT "{clr}";DN$;:P(l,0)=N 




1110 FOR 1=1 TO 3: 

PRINT "{rvs} {left 

ins } A " -.NEXT I 
1120 PRINT DN$;"{down rvs 6°right}#l{ll right}#2{ll right}#3" 
1150 PRINT DN$;LEFT$("{7°up}",N) ; 
1160 FOR 1=1 TO N 
1170 PRINT LEFT$("{off}"+RT$, 7-1+1) ;LEFTS("{rvs L) "+BT$ (1) ,2*1+1) ; 

" { : } " 
1180 P(1,N-I+1)=I*2 
1190 NEXT I 
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1800 MV=0 

1900 TM=TI+60 

1910 IF TKTM THEN 1910 

1950 GOSUB 8000 

2000 PRINT :PR$ = "FROM_ L WHICH J _PILE? J _":GOSUB 5000: IF IN$ = "" THEN 1950 

2010 F=VAL(IN$) 

2020 IF P(F,0)<1 THEN PRINT "THAT^PILE^IS^EMPTY. " .-GOTO 1900 

2050 PR$ = "TO J _WHICH J _PILE?. i _":GOSUB 5000: IF IN$ = ,,M THEN 1950 

2060 T=VAL(IN$) 

2070 IF F=T THEN PRINT "THAT^MOVE^DOES^NOTHING. " :GOTO 1900 

2080 IF P(T,0)=0 THEN 2100 

2090 IF P(F,P(F, 0) )>P(T,P(T f 0) ) THEN PRINT "IT^WON'T^FIT. " :GOTO 1900 

2100 FC=P(F,0) :FW=P(F,FC) :TC=P(T,0) :TW=P(T,TC) :MV=MV+1 

2110 X=l+13*(F-l)+7-FW/2 

2120 PRINT DN$;LEFT$("{9°up}",FC+l) ;LEFT$ ( " {of f } "+RT$+RT$+RT$ ,X) ; 

2125 LF$=LEFT$("{down 14°lef t } " , FW+1) 

2130 FOR 1=1 TO 8:T$(I)=LEFT$(TP$(I) ,1+FW) :B$ (I) =LEFT$ (BT$ (I) ,1+FW) : 

NEXT I 
2135 HT=0:J=1:IF F>T THEN J=-l 
2140 FOR I=F TO T STEP J 
2145 IF P(I,0)>HT THEN HT=P(I,0) 
2150 NEXT I 

2155 IF HT=P(T,0) THEN HT=HT+l:GOTO 2165 
2160 IF ABS(F-T)>1 THEN IF HT=P(2,0) THEN HT=HT+1 
2165 FOR I=FC TO HT 
2170 :FOR J=l TO 8 

2175 :PRINT T$ (J) ;LF$;B$ (J) ;LF$ ; " {2°up} " ; 
2180 :NEXT J 
2185 : PRINT "{up}"; 
2190 NEXT I 
2195 PRINT "{down}"; 

2200 L$=LEFT$("{16°left} ",1+FW) :R$=LEFT$ (RT$ , FW-1) 

2201 PRINT " {rvs> " t LEFTS ( " " . FW) ; " {of f > " ♦ 

LEFT$("{16 left}",FW) ; 

2205 IF F>T THEN 2250 

2210 FOR I=F*13 TO T*13-l 

2215 :FOR J=l TO 5 

2220 PRINT LF$(J) ;R$;RT$(J) ;L$; 

2225 NEXT J 

2226 PRINT "{right}"; 
2230 NEXT I 

2235 GOTO 2300 

2250 FOR I=T*13 TO F*13-l 

2255 PRINT "{left}"; 

2260 :FOR J=5 TO 1 STEP -1 

2265 ::PRINT LF$ ( J) ;R$ ;RT$ ( J) ;L$ ; 

2270 :NEXT J 

2275 NEXT I 

2300 FOR I=HT-1 TO TC STEP -1 

2310 :FOR J=8 TO 1 STEP -1 

2320 :PRINT T$ ( J) ;LF$;B$ ( J) ;LF$ ; " {2°up} " ; 
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2330 
2340 
2350 
2410 
2500 
2510 
2520 
2600 
2700 
2710 
2720 
2730 
2740 

2750 
2760 
2770 
2780 
2790 
2800 
5000 
5010 
5015 
5016 
5020 
5030 
5040 
5050 
5060 

5070 
8000 
8010 

8020 

8030 

9000 

60000 

60010 

60020 

60030 
60070 

60080 

60090 
60100 
60110 
60120 



:NEXT J 

: PRINT " {down}"; 

NEXT I 

PRINT LEFTS ("{TVS L> "+BT$ (1) ,FW+1) ; " { : } " 

P(T,0)=P(T,0)+1 

P(T,P(T,0))=P(F,P(F,0) ) 

P(F,0)=P(F,0)-1 

IF P(2,0)ON AND P(3,0)ON THEN 1900 

GOSUB 8000 

PRINT " {3°down> f , " ■ " " " " " " " " " " ; } " 

PRINT ".. (rvs !}YOUj_DIDj.ITlHoff ! } " 

PRINT " { < rvs ••""••"«»"»"»•< off >}" 

PRINT "{down}ITj_TOOK*.YOU";MV;LEFT$ ("MOVES", 5+(MV=l) ) ; 

"j.TOj.DOj.IT. " 

T=2TN-1: PRINT " {down}THEj_SHORTESTj.POSSIBLEj_SOLUTION" 

PRINT "NEEDS" ;T;LEFT$( "MOVES", 5+ (T=l) ) ;"." 

PRINT " {down} PLAYj.AGAIN?j_";: GOSUB 60000:PRINT "{clr}" 

IF LEFT$(IN$,1)="N" THEN END 

CLR: GOTO 100 

END 

PRINT PR$; 

GOSUB 60000: PRINT : IF IN$ = "" THEN RETURN 

IF LEFT$(IN$,1) ="Q" THEN END 

IF LEN(IN$)>1 THEN 5030 

IF IN$> = "1" AND IN$< = "3" THEN RETURN 

PRINT "THERE • Sj.NOj.SUCHj.PILE . " 

FOR 1=1 TO 500: NEXT I 

PRINT "{up} " 



PRINT "{2°up}";PR$; 
LEFTSC'j.^ 



ftttttftftftttftttffttttft 



",LEN(IN$) ) 



PRINT " {up}";:GOTO 5000 

PRINT "{home}"; 

FOR 1=1 TO 4: PRINT " " ; 

NEXT I 

PRINT " {home}"; 

RETURN 

PRINT "{home}" 

IN$ = "j_" :ZT=TI :ZC=2 : ZD$=CHR$ (20) 

GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( "j_{&} ", ZC, 1) ; " {lef t } " ; :ZC=3-ZC: 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "jjleft}"; 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>15 THEN 60010 

IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT "{left}";: 

GOTO 60010 
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60130 

60140 
60200 
60205 
60210 
60220 
60230 
60240 
60250 
60260 

60265 
60270 
60300 
60430 
60500 
62000 
62020 
62021 
62022 
62025 
62030 
62040 
62050 
62060 
62070 
62080 
62090 
62100 
62110 
62120 
62130 
62140 
62150 
62160 
62170 
62180 
62190 
62200 
62210 
62220 
62230 



IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 

NEXT Z.-GOTO 60000 

GOTO 60010 

IF PN=0 THEN GOTO 60250 

GOSUB 60500 

PRINT "{down}PRESS J .{rvs}RETURN{off }_*.TO_»."; 

IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 

PRINT "CONTINUE:"; 

GET T$:IF T$="" THEN 60240 

IF PN=LP THEN 60300 

PN=PN+1 : PRINT " {clr } " ;PG$ ; V-^CURSOR^ " ;NM$ ; 

*V LJ .(C)_ 1 _1981 JJJ _ 1 _PAGE";PN;"{down}" 

GOSUB 60500 

RETURN 

PRINT " {clr}":CLR:CR$=CHR$(13) -.GOTO 100 

RETURN 

FOR 1=1 TO 13:PRINT " {DDD} " ; :NEXT I -.PRINT :RETURN 

PG$="HANOI":LP=l:CR$=CHR$(13) 

PRINT "{clr 2°down}";TAB(14-LEN(PG$)) ;PG$ ; "^^BY^GLEN^FISHER' 

PRINT " {down}_ tJ ^ J _ t CURSOR_ t #5 JL ^COPYRIGHT J _ (0^.1981" 

GOSUB 60500 

PRINT " {down} ANIMATED j.TOWERS^OF^HANOI^.PUZ ZLE " 

PRINT "{2°down}WANT_J)IRECTIONS? J _";:GOSUB 60000 

IF LEFT$(IN$,1)="Y" THEN GOTO 62060 

PRINT "{clr 3° down}": RETURN 

GOSUB 60200 

PRINT "THE_ t OBJECT J _OF J THIS J _PUZ ZLEj.IS^TO^MOVE" 

PRINT "A J _PILE J _OF JL DISKS. J _HCWEVER fA A J .LARGER_J)ISK" 

PRINT " MAY^NEVER^BE_ 1 _PLACED J _ON_ t TOP J _OF JL A J .SMALLER" 

LP=1: PRINT "DISK." 

PRINT " {down}THE J .PET J .WILL J .ASK J .YOU J .HOW JL MANY J .DISKS" 

"YOUj.WISH^.TO^.WORK^WITH .^(BEGINNERS : " 

"TRY{ J .}3 J .OR J .4. . . ) .j.IT^.WILL^.THEN^.DRAW" 

"Aj.PICTUREj.OF^THEj.DISKS^AND^.ASK : " 

" 'FROM^.WHICHj.PILE? ' . J _ENTER_ i _THE J _NUMBER" 

" OF^TH E^P I LE ...FROM^WH I CH J _YOU_ t WANT JL TO " 

"TAKE^THE J _TOP_ t DISK._ t THEN, Jl .YOU J _ENTER" 

" TH E JL NUMBER*.OF_ 1 _TH E_,_P ILE^WHEREjlYOU " 

"WANT.vTO^PLACE^THAT^.DISK. " 

" {down} REMEMBER^.-^YOU^ALWAYS^MOVEU.ONEj.DISK" 

"AT^A^TIME l^erHE^PETj.WON' T_ 1 _LET_ 1 _YOU_J4AKE" 

"ILLEGAL^MOVES) . " 

60200 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
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BOX 



By Howard Airington 



The semiconductor industry is always looking 
for new materials with which to make its 
ever-smaller products. As you may know, 
integrated circuit chips are made by taking very 
pure silicon and adding very specific impurities in 
very particular patterns. In BOX, you have a small 
piece of a silicon chip, and must determine the 
exact position, within an 8 x 8 area, of the atoms 
from the added impurity. Naturally, since atoms 
are far too small to see, you must use some other 
tool to find them. 

Your tools in this game are a particle "gun" 
(which shoots a high-energy ray into the chip) 
and a set of detectors to tell where the ray comes 
out again, if it does. Since the silicon is so pure to 
start with, it forms very perfect crystals. As a 
result, the number of ways a ray can interact with 
an impurity atom are few, and are shown in the 
diagram below. The drawing shows a sample 8 x 
8 board, with the atoms marked, and several rays 
shot into it. 
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D) A shot aimed between two atoms one space 
apart is reflected back to its starting point. (It 
gets deflected 90 degrees twice, resulting in a 
180-degree turnaround.) 

E) A shot just to one side of an atom (at the 
edge) is also reflected, 

F) A shot directly at an atom (at the edge) is a hit, 
just as any other head-on shot. 

G) Shots may interact with more than one atom. 
Here is a shot that gets deflected twice, and 
comes out the same side it came in. 

H) This is another multiple interaction. However, 
the results of this one appear the same as no 
interaction at all. The shot appears to go 
straight through, even though it is deflected 
by three atoms (twice by one of them). 

When the game starts, you'll be asked how 
many atoms (from 1 to 16) should be put into the 
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A) If a shot hits nothing, it goes straight through 
and comes out the other side. 

B) If a shot hits an atom straight on, it is absorbed 
by the nucleus, and vanishes. This is a hit. 

C) A shot that passes next to an atom is deflected 
90 degrees away from the atom. Note that it 
never gets to be even with the atom. 



8x8 area. You must then find them by shooting 
rays. 

To make a shot, type in the number of the spot 
where you want the ray to enter. The result will 
be shown next to the entry spot by the following: 
an "H" for a hit, an "R" for a reflection, and the 
number of the exit spot for anything else. (In the 
last case, the exit spot will be marked with the 
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number of the entry spot, as well.) 

When you've figured out where an atom is, 
you should mark it. To do so, press [RETURN] 
when asked for an entry spot. The PET will ask 
you for the row and column of the atom (as with 
shots, use the numbers along the edge). If you're 
right, the atom will be marked. If you're wrong, 
the PET will say so. The game is over when 



you've marked all the atoms. 

To quit and to find out where the atoms are, 
enter [0] (zero) for the entry point of a shot. A 
score is being kept during all of this. You are 
given one point for each hit or reflection, two 
points for any other result, and five points for 
each wrong guess of an atom's location. The 
lower the score, the better you are. 



CLR:POKE 59468, 12 :PG$="BOX" :GOSUB 62000 
6 REM COPYRIGHT (C) 1981 THE CODE WORKS 
100 GOSUB 60400:REM 10/6/81 
102 DIM L(32):FOR 1=0 TO 7 :L (1+1) =I*WD:NEXT I:FOR 1=0 TO 7: 

L(I+9)=I*2+WD*12+5:NEXT I 
105 FOR 1=0 TO 7:L(I+17)=WD*7+25-I*WD:NEXT I:FOR 1=0 TO 7: 

L (1+25 ) =- (WD* 5) +19-1*2 : NEXT 
110 DATA 487,489,491,493,495,497,499 
115 DATA 305,265,225,185,145,105,65,25,-181,-183,-185,-187,-189, 

-191,-193,-195 
125 DEF FN R(Z) =INT (8*RND(1) +1) 
135 CR$=CHR$(13) :A=CRT+WD*6+7 

137 W$ = " " 

140 PRINT :PR$ = " {up} HOW J _MANY JU ATOMS? J _" : GOSUB 4000: IF IN$<>"" THEN 

N=IN:GOTO 150 
145 PRINT ,, I I LL_ 1 ASSUME J .FIVE":N=5 

150 K=0:HA=N:S=0 

151 H$="{home 20°down}" 
155 RS=22*WD+CRT 

160 IF N<1 THEN 3500 

161 IF N>16 THEN PRINT "le^ISjuMAXIMUMCup 2°right} "W$" {up} " -.GOTO 140 
165 FOR J=0 TO 9:FOR 1=0 TO 9 :B (I, J) =0:NEXT I :NEXT J 

175 FOR 1=1 TO N 

180 X=FN R(l) :Y=FN R(l) 

185 IF B(X,Y)<>0 THEN 180 

190 B(X,Y)=1:NEXT I 

195 GOSUB 1000 

200 GOSUB 2000: IF KOZ THEN R=K:K=Z :Z=R: GOSUB 2000 

201 PRINT H$" {15°right}"W$ 

205 PR$ = " {up}WHICH J .RAY J .POSITION? JU " :GOSUB 4000: IF IN$ = n " THEN IN=-1 

206 PRINT W$:R=IN:K=R:IF R<1 THEN 3000 

207 PRINT W$; ,, {up}" 

208 IF R>32 THEN 201 

210 ON (R-D/8+1 GOTO 250,260,270,280 

220 PRINT "ERRO R " iGOTO 200 

250 X=0:Y=R:U=1:V=0:GOTO 300 
260 X=R-8:Y=9:U=0:V=-1:GOTO 300 
270 X=9:Y=25-R:U=-1:V=0:GOTO 300 
280 X=33-R:Y=0:U=0:V=1 
300 X1=X+U:Y1=Y+V 

310 IF U=0 THEN X2=X1-1:X3=X1+1:Y2=Y1: Y3=Yl:GOTO 330 
320 Y2=Y1-1:Y3=Y1+1:X2=X1:X3=X1 

330 ON 8*SGN(B(X1,Y1) ) +SGN (B(X2,Y2) ) +2*SGN (B(X3 ,Y3) ) +1 GOTO 400, 
410,420,410 
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340 S=S+1: PRINT "HI T ";Z=K:GOTO 200 

400 X=Xl:Y=Yl:GOTO 500 

410 Z=l:GOTO 450 

420 Z=-l 

450 IF U=0 THEN U=Z:V=0:GOTO 500 

460 U=0:V=Z 

500 ON (X+15)/8 GOTO 550,520,560 

510 STOP 

520 ON (Y+15)/8 GOTO 570,300,580 

530 STOP 

550 Z=Y:GOTO 600 

560 Z=25-Y:GOTO 600 

570 Z=33-X:GOTO 600 

580 Z=8+X 

600 IF Z=R THEN PRINT "REFLECTION" :S=S+1 :GOTO 200 

610 S=S+2:PRINT "TO" ;Z ; " Qef t }_ 1 _ t _ lt _ t _ t _ 1 ." :GOTO 200 

700 A=A-WD+4:D1=87 

710 FOR J=l TO 8: FOR 1=1 TO 8 

720 IF B(I,J)<>1 THEN 740 

730 T=A+I*2+J*WD:POKE T,D1 

740 NEXT I:NEXT J 

750 PRINT H$;W$ 

760 PRINT W$ .-PRINT W$ ; " {3 °up} " :GOTO 135 

1000 PRINT "{clr 3°down} 3.3.3.2.2.2.2.2" 

1020 PRINT TAB (13);" 2^1 ^0^.9 ^.8 ^.7 ^6 _,_5 " 
1030 PRINT TAB(12) ; " {0@@@@@@@@@@§@@§@. } " 
1040 FOR 1=1 TO 8 

1050 PRINT " ";RIGHT$(STR$(I) .2) ;" A {] } . J _. ^. ^. ^. J ..^.^. ( ] >^" J 

1055 PRINT RIGHT$(STR$(25-I) ,2) 

1060 NEXT I 

1070 PRINT TABU2) ; "{-§@@8@@68§§@§§@§=}" 

1080 PRINT TAB (13) ; "^lxUlxUUUl" 

1090 PRINT TAB(13) ; "9 J .0_ 1 .l_ 1 _2_ t _3 J _4 J .5_ t _6" 

1100 RETURN 

2000 PRINT "(home 2°down}SCORE: ";S; "{lef t}^" 

2005 IF K=0 THEN RETURN 

2010 X=PEEK(RS) :ZZ=L(K)+A 

2020 IF X=20 THEN X$=RIGHT$ (STR$ (Z) ,2) :GOTO 2100 

2030 POKE ZZ+1,X:RETURN 

2100 D1=ASC(MID$(X$,1,1) ) :D2=ASC (MID$ (X$,2,l) ) 

2105 IF K>8 THEN 2140 

2110 POKE ZZ,Dl:POKE ZZ+1,D2 .-RETURN 

2140 IF K>16 THEN 2200 

2148 IF Dl=32 THEN Dl=D2:D2=32 

2150 POKE ZZ+l,Dl:POKE ZZ+WD+1,D2: RETURN 

2200 IF K>24 THEN 2300 

2208 IF Dl=32 THEN Dl=D2:D2=32 

2210 POKE ZZ+l,Dl:POKE ZZ+2,D2:RETURN 

2300 POKE ZZ-WD+l,Dl:POKE ZZ+1,D2: RETURN 

3000 IF R=0 THEN 700 

3005 PRINT H$,-W$ 
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3006 


3010 


3012 


3015 


3016 


3020 


3021 


3025 


3030 


3035 


3040 


3045 


3050 


3055 


3060 


3065 


3070 


3500 


4000 


4010 


4020 


4030 


60000 


60010 


60020 


60030 


60070 



60080 

60090 
60100 
60110 
60120 

60130 

60140 
60200 
60205 
60210 
60220 
60230 
60240 
60250 
60260 



PRINT W$: PRINT W$: PRINT W$ ; " {3°up} " 

PR$ = " {up}WHICIURCW? J _":GOSUB 4000: IF IN$ = ,,n THEN PRINT : 
GOTO 3 060 

I=IN:IF I>16 AND K25 THEN 1=25-1 

IF Kl OR I>8 THEN PRINT "(up 7°right} "W$ :GOTO 3010 
PRINT 

PR$ = , '{up}WHICH J _COLUMN? J _":GOSUB 4000: IF IN$ = "" THEN 3060 
J=IN:IF J>8 AND J<17 THEN J=41-J 

IF J<25 OR J>32 THEN PRINT "(up 9 °right} "W$ :GOTO 3020. 
J=33-J 

IF J<1 OR J>8 THEN 3010 

IF B(J f I)=l THEN POKE A-WD+4+J*2+I*WD,81 :B ( J, I) =2 :HA=HA-1 : 
GOTO 3060 

IF B(J,I)<>0 THEN PRINT "THATj.ONE^AGAIN??? {up} " :GOTO 3055 
PRINT "WRONG ! {up} " :S=S+5 
FOR 1=0 TO 1500 -.NEXT I 
PRINT "{2°up}";W$: PRINT W$: PRINT W$ 
IF HA=0 THEN 700 
K=0:Z=0:GOTO 200 
PRINT "{clr}":END 

PRINT PRS;:GOSUB 60000: IF IN$="" THEN RETURN 
FOR Z=l TO LEN(IN$) :T$=MID$ (IN$ ,Z ,1) 

IF T$=>"0" AND T$=<"9" THEN NEXT Z : IN=VAL (IN$) :RETURN 
PRINT "NO J _";T$;"'S. t PLEASE.":PRINT "{2°up}"W$ LEFT$ (W$,15) : 
GOTO 40 00 

IN$='V :ZT=TI:ZC=2:ZD$=CHR$(20) :PRINT ,, J _ tA {3°lef t } " ; 
GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( "^{&} ", ZC, 1) ; " Uef t } " ; :ZC=3-ZC: 
ZT=TI+15 
GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "^{lef t } " ; 
GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 
Z$=CHR$((Z+128) AND 255) 
IF ZL>18 THEN 60010 
IN$=IN$+Z$: PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 
IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT "{left}";: 
GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 
NEXT Z:GOTO 60000 
GOTO 60010 
IF PN=0 THEN 60250 
GOSUB 60500 

PRINT "{down}PRESS J .{rvs}RETURN{off } J .TO J ."; 
IF PN=LP THEN PRINT "BEGIN :"; :GOTO 60240 
PRINT "CONTINUE:"; 
GET T$:IF T$= n " THEN 60240 

IF PN=LP THEN CLR:PRINT " {clr } " ; .-GOTO 100 
PN=PN+1 .-PRINT " {clr } " ;PG$ ; "_ t - t CURSOR_ 1 _#6" ;NM$ ; 
(C) J .1981 JJlJJ .PAGE" ;PN; " {down} " 
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60265 
60270 
60400 
60410 

60415 
60500 
62000 

62010 
62013 
62015 
62020 

62030 
62040 
62100 
62110 
62120 
62130 
62140 
62150 
62160 
62165 
62170 
62180 
62190 
62200 
62210 
62220 
62230 
62235 
62240 
62250 
62260 
62265 
62270 
62280 
62290 
62300 
62310 
62315 
62320 
62330 
62340 
62350 
62360 
62370 
62380 
62390 
62400 



GOSUB 60500 

RETURN 

CRT=32768: PRINT "{clr}" 

WD=40:POKE CRT,96:IF PEEK(CRT+1024) <>96 THEN WD=80 : 

PRINT CHR$(142) 

RETURN 

FOR 1=1 TO 13: PRINT " {DDD} " ; :NEXT I: PRINT : RETURN 

PRINT "(Clr 2°down}";TAB(14-LEN(PG$) ) ;PG$; 

"j___BYj_HOWARDj.ARRINGTON " 

PRINT " {down}j_j_j_j__ t CURSORj_#6j__ t COPYRIGHT_ t _(C)j_1981" 

GOSUB 60500 

PRINT " {down}FINDj.THE___HIDDENj_ATOMS (down) " 

PRINT "{down}WANTj_INSTRUCTIONS?j.";:GOSUB 60000:IF LEFT$(IN$, 

1)="Y" THEN 62040 

PRINT "{clr}" :RETURN 

LP=4:GOSUB 60200 

PRINT " YOUj.WILLj_SHORTLYj_SEEj_AN___8X8j.BOXj_IN " 

" WHI CH___SEVERALj_ATOMS j_ARE___HIDDEN . ...YOUR " 

" TAS Kj_ISj_TOj.FINDj_TH Ej_ATOMS . j_YOU___HAVEj_AT " 

" YOU R___DI S PO SALj_Aj_ RAYj_PROJ ECT ER , j.WH I CH " 

" YOU___CAN j.US Ej_TOj_SEND___RAYSj_INTOj_TH Ej_BOX " 

"FROM_ t ANYj.OFj_32j_SPOTS___ALONGj_THE___SIDES" 

"OFj_THEj_BOX." 

"{down}ANYj_GIVENj_RAYj_CANj.MEETj_ONEj_OFj_THREE" 

"FATES :j_ITj_MAYj.HITj_ANj_ATOM,j_ANDj_BE" 

"ABSORBED ; ___ITj.MAYj_BEj_REFLECTED , j_AND___COME " 

"OUT___WHERE___ITj_WENT___IN ;___ORj_ITj.MAY___BE " 

"DIVERTED___ANDj_COMEj_OUTj_SOMEWHEREj_ELSE." 

" YOU j_W ILL___B Ej_TOL Dj_WHAT___HAPPENS , ___AND " 

"WHEREj_THEj_PAYj_COMESj_OUTj_(IFj_IT___DOES) . " 

" { down }ONj_THE___NEXTj_P AGE , j_YOU ' LLj_SEEj_THEj_RULES" 

"CONTROL LING j.THEj_PATHj_OFj_Aj.RAY. " 

60200 

" {down} 1 :_«JUj_}RAYj.THATj_HITSj_ANj_ATOMj.DEADj_ONj_IS " 

"j______ABSORBED,j_ANDj.NEVERj_COMES___OUT._ t ___{] }___{] } " 

TAB(34) ;"{@=}___{-@}" 

" 2 : j.Aj.RAYj.THATj.HITSj.ANj.ATOMj.TOj.ONEj^j.0" 
"j__^SIDEj_ISj_DIVERTEDj_90j_DEGRESS___TOj_{@ . }___{0@} " 
" j______THATj_SIDE . " ; TAB < 3 5 ) ; " { ] } j_{ ] } " 

" {down} 3 : j_Aj.RAYj_THATj_PASSESj_BETWEENj_TWOj_j_Oj_j_0" 
"j_j_j.ATOMSj_ONEj_SQUAREj_APARTj_ISj_RE-_ t _ JL __,{0. } " 
"j_j^FLECTED, j_ANDj_RETRACES___ITSj_PATH . __.{ ] ] } " 
" {down} 4 : j_Aj.RAYj_THAT___ENTERSj_ALONGSIDEj_j_0{ . } " 

" . . . AN . ATOM. IS . REFLECTED { ] ] } " 

" {down} 5 tj.ATj.ALLj.OTHERj.TIMESj.Aj.RAYj.FOLLOWSj.A" 

" j___j.STRAIGHTj.PATH . " 

60200 

" TH Ej.PLACE Sj.YOUj.CANj.SENDj.INj.Aj.RAYj.ARE " 

"NUMBERED___FROM { r ight } l___TO {___} 32 . j_TOj_SENDj.Aj.RAY" 

" IN , j_TYPEj_THEj_NUMBERj.OFj_THEj_PLACEj.YOU " 

"WANTj.ITj_TOj_ENTERj_AT.j_ITj_WILLj_STARTj.OUT" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
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62410 


PRINT 


62420 


PRINT 


62430 


PRINT 


62440 


PRINT 


62450 


PRINT 


62460 


PRINT 


62470 


PRINT 


62480 


PRINT 


62490 


PRINT 


62500 


GOSUB 


62510 


PRINT 


62520 


PRINT 


62530 


PRINT 


62540 


PRINT 


62550 


PRINT 


62560 


PRINT 


62570 


PRINT 


62630 


PRINT 


62640 


GOSUB 



"TRAVELLING___VERTICALLYj_ORj_SIDEWAYS , " 
"DEPENDING___ON___WHI CH___SIDE___ITj_STARTS___AT . " 
"{down}YOU___WILL___BEj_TOLD___WHETHER__.THE_ t RAYj_HITS" 
n AN___ATOM, {___}ISj_REFLECTED, ___ORj_COMES___OUT. " 
"SHOULD_._ITj_COME.JDUT , ___YOU ' LL___BE___TOLD" 
"WHERE . _____TO___G IVE__.UPj_ ( AND___F INDj_OUT___WHERE " 

"THOSE___LOUSY_ t ATOMS___WERE) , j_TYPEj_A___0" 

" ( Z ERO ) ___AS___TH E___RAYj_ENTRAN CE . __.TO_._G UE S S " 

" AN___ATOM • S___LOC AT I ON , j.J U ST___H I Tj. { r v s } RETU RN { o f f } . " 

60200 

" YOU___ARE___G IVEN___Aj.SCOREj.ACCORDING___TOj.HOW " 

"WELL__.YOU_._DO .___FOR___EACH___RAY___THAT___GOES_ t IN " 

" YOU__.GET___ONE__.PO INT .___IF__.ITj.COMES__.OUT " 

"AGAIN,{___}YOU___GET___ANOTHER__POINT.___FOR___EACH" 

"WRONG___GUESS___YOU___MAKE , __.YOUj_GET_._F I VE " 

" PO INTS . j___A___LOWj_SCOREj_INDI CATES_«.HI GH " 

"SKILL." 

" {2°down}____ t ______ f __.HAVEj_FUNI ! {2 down> " 

60200 
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MIND 



By Glen Fisher 



Mind is our version of the popular game 
"Master Mind" 1 , which is a game played 
with colored pegs on a board. One player 
invents a color pattern, and the other player tries 
to guess the pattern. In the computer version, 
since we can't use actual pegs, we just print the 
color names on the screen. The PET will choose 
the color pattern, and it is your job to discover the 
pattern. 

You enter your guess using the [R] , [O] , Y] , 
[G], [B], and [V] (for Red, Orange, Yellow, 
Green, Blue, and Violet) keys. As you press 
them, the appropriate color names will be printed 
on the screen. At its simplest, entering your 
guess involves just pressing four keys, and then 
[RETURN]. If you press the wrong key, just 
press [DEL] (or [LEFT]) to back up the cursor, 
and press the key you intended. [SPACE] or 
[RIGHT] move the cursor to the right. Finally, 
the [?] key means "I give up. What's the 
answer?" 

Once you've pressed [RETURN] , the PET will 
tell you how many "hits" or "misses" you got. 
You get a hit when a color in your guess matches 
(in color and position) a color in the pattern. For 

example: 

pattern: RGBV 

guess: BGRO 

For that guess, you would get one hit, for the 
green. Neither red nor blue would be a hit, 
because they're in the wrong places. You get a 
miss when one of the colors in your guess 
matches one of the colors in the pattern, but is in 
the wrong place. In the above example, red and 
blue would be misses, since the pattern has both 
red and blue in it, but in your guess they're not 
where they are in the pattern. 

There are two complications. First, the PET 
only tells you how many hits and misses you got. It 
doesn't say which colors in your guess gave you 
the hits or misses. In the above example, you 
would merely be told "one hit, two misses," with 
no clue as to which colors were involved. It is 



nonetheless possible to figure out the pattern. 
You make several guesses, and figure out what 
pattern of colors could produce the hits and 
misses you've been getting. For example, with 
the pattern above, if you change your guess to 

BORG 

you will get "0 hits, 3 misses." You now know 
that either Green or Orange was the hit, because 
they're the only colors you changed, and the hit 
went away. 

The other complication is that the same color 
can be used several times in the pattern. Thus, 
the pattern could be R G R, with two Reds in it. 
The thing to be aware of is that any given peg in 
the guess can make a hit or a miss, but never 
both. Likewise with the pattern, one peg can only 
be one hit or miss. For example, with the pattern 
R O G R, a guess of R Y B O would give you one 
hit (for red) and one miss (for orange). The other 
red wouldn't count. 

For a guess of R Y R B, you'd also get one hit 
(for red) and one miss (for the other red). A 
guess of Y R G B would give a hit (for green) and 
a miss (for red). You only get one miss because 
you only guessed one red. A guess of G R B G 
would give no hits and two misses, one for red, 
and one for green. There's only one green in the 
pattern, so only one of your greens is a miss. The 
other green is ignored. 

To show you how many hits and misses you 
got, the PET prints dots beside your guess. A 
white dot marks a hit and a black dot marks a 
miss. The location of the dots has nothing to do 
with where the hits or misses are. The PET just 
prints all the white dots, followed by all the black 
dots. If you get no dots at all, none of the colors in 
your guess are in the pattern. 

Finally, if you're feeling extra sharp, you may 
put a limit on the number of guesses allowed on a 
pattern. Exceed the limit and the PET tells you 
the answer, and marks that game as a loss for 
you. If you don't want a limit, just press 
[RETURN] in answer to the question. 



1 "Master Mind" is a registered trademark of Invicta Plastics (U.S.A.) Ltd. 
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CLR:POKE 59468,12 

REM MIND COPYRIGHT (C) 1981 THE CODE WORKS 

REM AS OF 10/6/81RJ 

PG$="MIND" :NM$="7" :GOSUB 62000 

CR$=CHR$(13) :PRINT CHR$(142) 

PRINT I, DO J .YOU^WANT A A J .LIMIT A ON J .THE J .NUMBER J .OF": PRINT "GUESSES?.*." ; 

:GOSUB 60000 

IP IN$ = "" THEN PRINT " {down}THERE J _WILL J _BE J _NO J _LIMIT, ^THEN. " : 

FOR 1=1 TO 2000:NEXT 

IN$=LEFT$(IN$,1) :IF IN$="N" OR IN$="" THEN LM=lE38:GOTO 200 

IF IN$<>"Y" THEN PRINT " PLEAS E^ANSWERj. 1 YES' j.ORj.'NO' . " :GOTO 105 



PRINT "WHAT J .SHOULD J .THE J .LIMIT jL BE? J 



:GOSUB 60000 



IF IN$ = "" THEN PRINT "I ' LLj.ASSUMEj.10. " :LM=10 :GOTO 200 

FOR 1=1 TO LEN(IN$) :T$=MID$ (IN$, I, 1) 

IF T$<"1" OR T$>"9" THEN PRINT "NCu." ;T$ ; " 'S,_«.PLEASE. " :GOTO 120 

NEXT I:LM=VAL(IN$) 

READ T$:IF T$<>"" THEN C=C+l:GOTO 200 

DATA RED, ORANGE, YELLOW, GREEN, BLUE, VIOLET, 

N=4:CZ=6:B$ = "" :FOR 1=1 TO CZ :B$=B$+" J ." :L$=L$+" {§} " :NEXT I 

DIM P(N) ,G(N) ,PS(N) ,C$(C) 

RESTORErFOR 1=1 TO C:READ C$ :C$ (I) =LEFT$ (C$+B$ ,CZ) :NEXT I: 

C$(0)=B$ 

H$="{off}":M$="{off}":FOR 1=1 TO N:H$=H$+" {Q} " :M$=M$+" (W) " : 

NEXT I 

TB=6:DEF FN T(N) =(CZ+1) * (N-l) +TB 

FOR 1=1 TO N:P(I)=INT(RND(1)*C)+1:NEXT I 

PRINT "{clr}";:FOR 1=1 TO N:PRINT TAB(FN T (I) + (CZ/2) -1) ; I; : 

NEXT I 

PRINT :FOR 1=1 TO N:PRINT TAB(FN T(I) ) ;L$ ; :NEXT I 

GM=GM+1:TN=0: PRINT " {home} GAME" : PRINT GM 

IF TN>=LM THEN 1960 

TN=TN+1:TT=TT+1: PRINT TAB(TB-3) ; RIGHT $ (STR$ (TN) ,2) :T=l:OT=T 

FOR 1=1 TO N:G(I)=0:NEXT I 
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1200 IF OTOT THEN PRINT " {up} " ;TAB (FN T(0T) ) ;C$ (G(OT) ) 

1210 IF T<1 THEN T=N 

1220 IF T>N THEN T=l 

1230 PRINT "{up}"; TAB (FN T(T) ) ; " {rvs} " ;C$ (G(T) ) :0T=T 

1300 GET T$:IF T$="" THEN 1300 

1310 IF 1$ = "^." OR T$=" {right}" THEN T=T+l:GOTO 1200 

1320 IF T$=CHR$(20) OR T$=" {left}" THEN T=T-l:GOTO 1200 

1330 IF T$=CHR$(13) THEN 2000 

1340 FOR 1=1 TO C 

1350 :IF T$=MID$("123456789" f I,l) OR T$=LEFT$ (C$ (I) , 1) THEN 1900 

1360 NEXT I 

1370 IF T$=">" THEN T2=T+l:GOTO 1800 

1380 IF T$="<" THEN T2=T-l:GOTO 1800 

1390 IF T$="?" THEN 1950 

1400 GOTO 1300 

1800 IF T2>N THEN T2=l 

1810 IF T2<1 THEN T2=N 

1820 I=G(T) :G(T)=G(T2) :G(T2)=I 

1830 OT=T2:GOTO 1200 

1900 G(T)=I:T=T+1 

1910 GOTO 1200 

1950 PRINT " {up} " 

1955 PRINT TAB (TB+6) ; "THE^ANSWER^IS : {down}" :H=0:GOTO 1990 

1960 PRINT TAB(TB) ; " {down}^SORRY,. t THE J _SOLUTION t WAS : {down} " :H=0: 

GOTO 1990 
1990 LS=LS+l:TT=TT-TN:GOTO 2100 
2000 FOR 1=1 TO N:IF G(I)=0 THEN 1300 
2010 PS(I)=P(I) :NEXT I 

2015 PRINT "{up}";TAB(FN T(T) ) ;C$ (G(T) ) 
2020 H=0:FOR 1=1 TO N 

2030 :IF PS(I)=G(I) THEN H=H+1 :PS (I) =-1 :G (I) =-2 
2040 NEXT I 

2050 M=0:FOR 1=1 TO N:FOR J=l TO N 
2060 IF PS(I)=G(J) THEN M=M+1:PS (I) =-l:G ( J) =-2 
2070 NEXT J: NEXT I 

2080 PRINT " {up}";TAB(FN T(N+1) ) ;LEFT$ (H$,H+1) ;LEFT$ (M$, M+l) 
2090 IF H<N THEN 1100 
2100 PRINT "{up rvs}";TAB(FN T(D); 
2110 FOR 1=1 TO N-l 
2120 :PRINT C? (P (I) ) ; "_,_" ; :NEXT I 
2130 PRINT C$(P(N) ) 

2135 IF H=N THEN PRINT TAB(TB) ; " {down} AJLA THAT A WAS^.THE J .PATTERN! " 
2140 PRINT "{down}CARE_ t _TO J _TRY_ t _AGAIN?_ t ";:GOSUB 60000 
2150 IN$=LEFT$(IN$,1) :IF IN$O n N" THEN 1000 
2160 PRINT "{down}VERY A WELL.{2°down}":IF LS<GM THEN 2300 
2170 IF LM<40 THEN 2250 
2190 PRINT " A YOu\ t DIDN , T_ 1 .GUESS_ 1 _";:IF GM=1 THEN 2210 

2200 IF GM=2 THEN PRINT "EITHER" : PRINT "OF J .";:GOTO 2205 

2201 PRINT "ANY^OF" 

2205 PRINT "THE" ;GM; "PATTERNS";: GOTO 2220 
2210 PRINT "THE ".-PRINT "PATTERN"; 
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62120 



PRINT "j.Ij.SELECTED." :GOTO 3000 

PRINT "TRYj.Aj_HIGHERj.GUESSj_LIMITj.THEj_NEXTj.TIME" : 

PRINT " YOUj.PLAYj.TH IS . " ; 

GOTO 2190 

PRINT "YOUj_AVERAGED n ;INT (TT*10/ (GM-LS) ) /10; 

"GUESSESj_PERj_SOLUTION, " 

IF LS>0 THEN PRINT "BUTj.MISSED" ;LS; "OUTj.OF" ;GM; "PATTERNS. " : 

GOTO 3000 

PRINT "WITHOUTj.MISSINGj.";:IF GM=1 THEN PRINT "THEj_PATTERN. " : 

GOTO 3000 

PRINT "ANYj.OFj.THE" ;GM; "PATTERNS. " 

END 

IN$ = "j." :ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( "j.{ &} " , ZC f 1) ; " {lef t } " ; : ZC=3-ZC : 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) : IF (Z AND 127X32 THEN PRINT "jjleft}"; 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>254 THEN 60010 

IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT "{left}";: 

GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 

NEXT Z:GOTO 60000 

GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500:PRINT "PRESSj_{rvs}RETURN{of f }j.TOj_" ; 

IF PN=LP THEN PRINT "BEGIN :" :GOTO 60240 

PRINT "CONTINUE" 

GET T$:IF T$="" THEN 60240 

IF PN=LP THEN PRINT " {clr } " :CR$=CHR$ (13) :GOTO 100 

PN=PN+1 : PRINT " (clr } " ;PG$ ; "j.-j_CURSORj_# " ;NM$ ; 

"j^tC) j.l981j_ 1 _ t j.PAGE" ;PN 

GOSUB 6 05 00 .-RETURN 

FOR 1=1 TO 13:PRINT " {DDD> " ; :NEXT I -.PRINT :RETURN 

PRINT "{clr 2°down}";TAB(14-LEN(PG$) ) ;PG$ ; "j___BYj_GLENj.FISHER" 

PRINT " {QOwn}j_ t j_ t j.CURSORj.#7jj.COPYRIGHTj.(C)j.l981" 

GOSUB 60500 

PRINT " {down}GUESS{j.}THE{j.}COLORj.PATTERNS" 

PRINT " {2°down}WANTj.DIRECTIONS?j.";:GOSUB 60000:PRINT : 

IN$=LEFT$(IN$ / 1) 

IF IN$="" OR IN$="N" THEN POKE 59468, 12: PRINT " {clr } ■ :RETURN 

IF IN$<>"Y" THEN PRINT "PLEASEj_ANSWERj_YESj_OR{j_}NO. { 4°up} " : 

GOTO 62010 

LP=5:GOSUB 60200 

PRINT "MASTERMINDj.ISj.Aj.GAMEj.INj.WHICHj.YOUj.TRY" 

PRINT "T0j.GUESSj.THEj.C0L0Rj.PATTERNj.THE...PET..HAS " 
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"CHOSEN . J _AFTER_ t EACH J _GUESS_ t YOU_ t MAKE ,_,_THE " 

"PET_ t WILL_ t GIVE_ t YOU___HINTS_ t ABOUT_ t HOW_ t CLOSE" 

"YOU^CAME.Idown}" 

"YOU_ t WILL_ t BE_ t TOLD_ t HOW_ t MANY___HITS_ t AND" 

"MISSES J _YOU_ t GOT___WITH_ t THAT_ t GUESS . " 

" { do wn } YOU_._SCORE_JVj.HI T_ t WHENEVER_ t A__.COLOR_ t IN " 

" YOUR___GUESS_ 1 _MATCHES_ t _A___COLOR___IN___THE_ t PET ' S " 

" PATTERN___EXACTL Y , _-.IN_._COLOR__.AND__.PO SI TION . " 

"FORj.EXAMPLE" 

" {down} PATTERN :_ t RED J __ L __.GREEN_____BLUE____.VIOLET " 

"GUESS :... BLUE. .GREEN.. RED. ■ .ORANGE" 

" {down)WOULD_ t .GET__.A__.HIT_ t FOR J _THE{___} GREEN. " 

60200 

"YOU__.GET_ t A__.MISS_ u WHENEVER__.A__.COLOR J _IN__.YOUR" 

"GUESS_ t MATCHES___A^COLOR__JN_ t THE__.PATTERN," 

"BUT__JSN • T__.IN___THE_ t RIGHT J _POSITION . ^FOR" 

"EXAMPLE" 

"{down}PATTERN:_ t GREEN____ u GREEN________BLUE_____ JL __.RED" 

"GUE SS : _ t _^_.BLUE J _____ORANG E_ t _ t ORANG E_^VIOLET " 

" {down}WOULD___GET__.A__.MISS_ t ON___THE J _BLUE. " 

" { do wn } AN Y_J5 IVEN_tCOLOR__.IN__.YOU RtGUESS^CAN^MATCH " 

"ONLY_ t ONE__.COLOR J _IN_ t THE_ t PATTERN, J _EVEN___IF" 

"TKERE J _ARE___DUPLICATES .___FOR__.EXAMPLE " 

" { do wn } PATTERN : _ t RED_ t ___RED_ t _________ORANG E_____ORANG E " 

" GUE S S : J _ x ___RED_ t ___ORANG E___ JL BLUE_ tJ _ JL __ u GREEN " 

" {down}WOULD__.GET__.ONE_ t HIT__.(FOR J _RED)_ t AND{_ t } " 

,, ONE__.MISS{_ t } ( FOR {_t) ORANGE) . " 

60200 

"SIMILARLY, ^ANYj.GIVEN^COLOR^} IN^THE " 

" PATTERN__.CAN___MATCH.tONL Y^ONE^COLOR^IN " 

"YOUR_ t GUESS._tFOR JL EXAMPLE" 

" { do wn } PATTERN : __.RED_____ORANG E JL _ a _BLUE_ tJ _ t ___GREEN " 

"GUESS: __ J _^RED___ J __RED_ t __________ORANG E_^__ORANG E " 

"{down}WOULD_ t GET__.ONE__.HIT{___} (FOR{__jRED) f ___AND" 
"ONE_ t MISS_ t (FOR{_ t }ORANGE) . " 

" { 2 °down}TO {j.} ENTER^.YOUR.tGUESS, j.YOU^TYPEj.IN^THE " 
"COLORS.tYOU__.WANT {_t> (USING__.EITHER_ t THE___FIRST" 
"LETTERS_ t OF_ t THE_ t WORDS {_t}RED,_tORANGE, " 
"YELLOW, _tGREEN,__.BLUE,_tAND{__.}VIOLET,__.OR__BY" 
"TYPING_ t A J _DIGIT___FROM_ t l_ t TO{__.}6 J _(THE_ t COLORS" 
"ARE___NUMBERED Jl .IN_ t THE_ t ORDER {_t > RED_tTHROUGH " 
"VIOLET) . JL _ t THE_ t POSITION_ t THE{_ t }COLOR i .WILL" 
"GO.INTO_tIS_tMARKED__WITH {. rvs}BLACK-ON-WHITECof f } . " 



.INTO_ t IS J .MARKED___WITH 
60200 

" YOU .vMAY^MODI F Y^YOU R^G UE S S_t ( TO^CO RRECT^A " 
"MISTYPE ,_ t OR J _CHANGE_ t YOUR J _MIND)___BY_ t USING" 
"THE { J _}DEL,^LEFT,_ t RIGHT,_ t AND{_ t } SPACE U) KEYS." 
"DEL__.AND{ J _.}LEFT__.MOVE{ A }THE{_ t rvs)MARKER{of f }_ t TO_ t THE' 
"LEFT,_ t AND_ t RIGHT J .AND{ J _.}SPACE_ t MOVE J _.IT J .TO" 
"RIGHT. J .IF_^THE{^ rvs> MARKER (off __jGOES.__OFF__.EITHER" 
"END,_ t IT J _.WILL J _.REAPPEAR JL AT J _THE J _.OTHER." 
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"INj_ADDITION,j.THE{j.} 'OjANDU} 'V^KEYS" 

"WILLj_SWITCHj_COLORS . j. ' < • j.WILLj_SWITCHj_THE " 

"COLORj.UNDERj_THE{j. rvs}MARKER(of f }j_WITHj.THEj_COLOR" 

"TOj_ITSj_LEFT,j_AND{j.} • > ' j.WITHj_THEj_COLORj_TO" 

"THEj_RIGHTj_OFj.THE{j. rvs)HARKER{of f > . " 

" {down}ALSO,j_TOj_GIVEj_UPj.ANDj.SEEj_THEj.PATTERN, " 

"YOUj_CANj.PRESSj.THEj.' ? '...KEY. " 

"{downJWHENj.YOURj.GUESSj.ISj.ENTEREDj.TOj.YOUR" 

"SATIS FACTION, _ t .PRESSjRETURN_ t .TOj.FINDj_OUT n 

"HCWj_MMYj.HITSj_ANDj_MISSESj.YOUj.GOT." 

60200 

"THEjPET___WILLj.SHOWj_YOURj_HITSj_ANDj_MISSES" 

"BY___PRINTING,___BESIDE__.YOURj.GUESS,___Aj.SOLID" 

"DOTj.FORj.EACHj.HIT,j.AND___Aj.HOLLOWj_DOTj_FOR" 

" EACHj.M IS S . j.FORj.EXAMPLE , j.2 j.HI TSj.ANDj.1 " 

"MISSj.WOULDj.LOOKj.LIKEj.THIS : " 

"{down}_____j_{QQW}" 

" {down}WHEN___YOU ' RE___ALLj_DONE___GUESSING___PATTERNS, " 

" TK Ej.PETj.W I L L___TEL Lj.YOUj.HOWj.WEL Lj.YOUj.DI D " 

"OVERj_ALLj.THEjPATTERNS. " 

"{3°down}GOODj.LUCK.{2°down}" 

60200 
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PEG 



By Julia Hallf ord 



Here's a simple one. With two sets of four 
pegs, in a board with nine holes in a 
straight line, all you have to do is switch 
the two sets of pegs. Seems easy, huh? Well, 
there are a few rules we haven't told you yet. 

The pegs are set up in the board with four to 
the left (marked ">") and four to the right 
(marked "< "), with a hole between them. On 
any move, you may move a peg one place left or 
right (according to the arrow on top); "> " pegs 
can move only to the right, and a "<" peg only 
to the left, and must move into the hole. Also 
you may jump over a peg going in the other 
direction, if you can land in the hole. These are 
your only choices: move one place into the hole 



or jump over an opposite-way peg into the hole. 
Other than that, you may move any peg you like 
at anytime. 

To move, tell the PET which peg you want to 
move (all are numbered). Since it must move 
into the hole, and there's only one hole, the PET 
knows where its going and you don't need to tell 
it that. The PET won't allow any moves which 
violate the rules. When you've got the pegs 
switched, with the hole once again in the middle, 
you're done. The PET will tell you how many 
moves you took to do it (the minimum is 24). If 
you get stuck, or give up, move peg zero to quit. 

Incidentally, the PET knows how to solve the 
puzzle, and will gladly show you if you ask. 
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CLR:POKE 59468, 12 :PK=12 

REM PEG COPYRIGHT (C) 1981 THE CODE WORKS 

REM AS OF 10/6/81 RJ 

PG$="PEG":NM$="11" :GOSUB 62000 

GOSUB 60400 

BB$ = " " 

PRINT " {down}WANT A TO^SEE J _HOW J _TO J _SOLVE J _THE_ t _PUZ ZLE?^' ; 

GOSUB 60000 

PRINT "{clr}";: GOSUB 1000 

IF LEFT$(IN$,l)= ,, Y n THEN 1200 

M=0:X=5 

PRINT "{home}";BB$ 

M=M+1:DL=0: PRINT " {home}MOVE J _#"M:Y=X 

GOSUB 80 -.GOSUB 700:DL=1000 

PRINT TAB(6) ; "FROM?^" ; : GOSUB 60000 

IF IN$= M " THEN PRINT " {up} " ; :GOTO 200 

IF ASC(IN$)=32 THEN IN$=MID$ (IN$ , 2) :GOTO 201 

X=VAL(IN$) 

IF X=0 THEN 47 

IF X<1 OR X>9 THEN PRINT "TYPE J _A J .NUMBER J _FROM_ t l_ t TO. t 9 , ^.PLEASE. " 

GOTO 190 

IF ABS(X-Y)>2 THEN 450 

IF P(X)=32 GOTO 450 

IF P(X)=62 AND X>Y THEN 450 

IF P(X)=60 AND X<Y THEN 450 

P(Y)=P(X) :P(X)=32 

JX=CRT+WD*8+9+2*X:JY=CRT+WD*8+9+2*Y 

POKE JY,P(Y):POKE JX,32 
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330 FOR 1=1 TO 4 

340 IF P(I)O60 GOTO 370 

350 NEXT I 

360 IF P(5)=32 GOTO 530 

370 GOTO 180 

450 PRINT TAB(6) ;"{down}ILLEGAL J .MOVE":GOTO 190 

470 M=M-1:IF M>MX THEN MX=M 

480 PRINT SPC(ll) ,, {down}TRY_ 1 .AGAIN? JL "; 

500 GOSUB 60000 

510 IF LEFT$(IN$,DO"N" THEN GOSUB 1000:GOTO 150 

520 GOTO 600 

530 FOR K=0 TO 15: 

PRINT " {home}"SPC(12) " ! ! ! {rvs}CONGRATULATIONS{of f } i !!" 
550 PRINT SPC(12) " {16°down}PLAY A AGAIN? J ." ; 

555 GOSUB 60000: IF LEFT$ (IN$,1) <>"N" THEN GOSUB 1000:GOTO 150 

556 PRINT "{clr}":END 

600 PRINT " {down}THE A CLOSEST_ i _YOU_ t CAME J _TO J _A Jl .SOLUTION" 

610 PRINT "WAS " ; MX ; "MOVES . " 

640 PRINT ,, {2°down}WANT J .TO J .SEE JL HOW J .TO JL SOLVE JL IT? J ."; 

650 GOSUB 60000: PRINT "{clr}" 

660 IF LEFT$(IN$,1)="Y" THEN GOSUB 1000:GOTO 1200 

670 END 

700 PRINT "{home 12°down} ":RETURN 

800 FOR T=l TO DL:NEXT T 

810 GOSUB 700: FOR Z=l TO 5: PRINT BB$:NEXT Z:RETURN 
1000 T$= "{&&&&&&&&&&&&&&&&&&&&&&&}" 
1010 PRINT "{home 4°down} ";TAB(8) ;T$ 

1025 FOR 1=1 TO 5:PRINT TAB(8) ;"{&}" ;TAB(30) ;"{&}" :NEXT I 

1026 PRINT TAB (8) ;T$;"{home 5°down}" 
1030 PRINT SPC ( 1 ) " ^.1^2^.3 ^.4 ^.5 ^.6 A 7 _^8 A 9 " 
1040 PRINT SPC(10)"{+@[@[@[@[§t@t§[§t@3}" 
1050 PRINT SPC(10)"{]JJJJJJJJJ}" 
1055 RESTORE 

1060 FOR 1=1 TO 9:READ P(I) 

1070 POKE CRT+WD*8+9+U+I+I,P(I) :NEXT I 

1120 RETURN 

1200 J=CRT+WD*8+9 

1210 DL=500 

1300 FOR K=l TO 24 

1420 READ M,N 

1430 JM=J+M+M:JN=J+N+N 

1450 PRINT "{home}MOVE^#";K 

1460 GOSUB 700:PRINT TAB(5) ; "FROM" ;M; "TO" ;N 

1470 P=188:IF P(M)=62 THEN P=190 

1480 POKE JM,P:FOR L=l TO DL:NEXT L:POKE JM,32 

1490 POKE JN,P:FOR L=l TO DL:NEXT L:POKE JN,P(M) 

1550 P(N)=P(M) :P(M)=32 

1555 FOR 0=1 TO DL:NEXT O 

1600 NEXT K 

1610 GOSUB 700:PRINT " {5°right}NOW Jt .YOU J .TRY J .IT" :FOR TT=1 TO 1000: 
NEXT TT: PRINT BB$ 
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1620 

2000 

2030 

2040 

60000 

60010 

60020 

60030 
60070 

60080 

60090 
60100 
60110 
60120 

60130 

60140 
60200 
60210 
60220 
60230 
60240 
60250 
60260 

60270 
60400 
60410 
60420 
60500 
62000 
62010 
62020 
62025 
62030 
62040 

62100 
62400 
62410 
62420 
62430 
62440 
62450 
62460 
62470 
62480 



(Z AND 127X32 THEN PRINT "jjleft} 



{left}";: 



GOSUB 1000:GOTO 150 

DATA 62,62,62,62,32,60,60,60,60 

DATA 6,5,4,6,3,4,5,3,7,5,8,7,6,8,4,6,2,4,1,2,3,1,5,3 

DATA 7,5,9,7,8,9,6,8,4,6,2,4,3,2,5,3,7,5,6,7,4,6,5,4 

IN$=V":ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( "_,.{& } ", ZC, 1) ; " {lef t } " ; :ZC=3-ZC: 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) : IF 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>254 THEN 60010 

IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT * 

GOTO 60 010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT Z$;: 

NEXT Z:GOTO 60000 

GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500:PRINT "PRESSj_{rvs}RETURN{of f }j.TOj_" ; 

IF PN=LP THEN PRINT "BEGIN :";: GOTO 60240 

PRINT "CONTINUE:"; 

GET T$:IF T$ = "" THEN 60240 

IF PN=LP THEN POKE 5946 8, PK:CLR: PRINT " {clr } " ; :GOTO 100 

PN=PN+1 : PRINT " {clr } " ; PG$ ; "_ t -j.CURSORj_# " ;NM$ ; 

". (C) .1981 PAGE";PN 

GOSUB 6 0500: RETURN 

CRT=32768:CR$=CHR$(13) :WD=40:PRINT "{clr}" 

POKE CRT, 96: IF PEEK(CRT+1024) <>96 THEN WD=80: PRINT CHR$(142) 

RETURN 

FOR 1=1 TO 13: PRINT " {@@@} " ; :NEXT: PRINT : RETURN 

PRINT "{clr down}";TAB(15-LEN(PG$) ) ;PG$; "_ 1 _ 1 _BYj.JULIA J _HALLFORD" 
" {down} J _ I _ 1 _ tJ .CURSOR J .#ll J _ t COPYRIGHT J . (0^.1981 " 
60500 

" { down} REVERSE j .TWOj.SETSjX>F j _PEGS_,.ONjAj.BOARD" 
"{2°down}WANT J .INSTRUCTIONS? J ."; : GOSUB 60000 

IF LEFT$(IN$,1X>"Y" THEN PRINT " {clr } " ; :POKE 59468, PK:CLR: 

GOTO 100 

LP=2:GOSUB 60200 

PRINT "TH IS^GAME J _IS J _PLAYED^WITO J .TWO_ L SETS_ t .OF" 

"{down}FOUR J .PEGS J .REPRESENTED J .BY J . , <' {right}AND' > ' ." 
" {down}THE J _BOARD A STARTS J .OUT J _WITH J _A J .SET_ 1 _OF J .PEGS " 
" {down}AT J .EACH{ J .}END,^WITH J .A J .SPACE A BETWEEN J .THEM. " 
" { 2°down}THE J .OBJECT J .OF J .THE J .GAME J .IS J .TO J .SWITCH J .THE " 
" { QO wn } TWOj.SETSj.OF { j.} PEGS . jA*.PEGj_MAY_ t _EITH ERj.MOVE " 
" {down} INTOj.THEj.SPACE , _ t IFj.THE J _SPACE_ t .ISj.NEXTj_TO" 
" {down}THEj.PEG, J.ORJ.JUMPJ.OVERJ.ONEJ.PEGJ.INTOJ.THE " 
" {down} SPACE . j. ' > • j.PEGSj.MOVEj.TOjTHEj.RIGHT , J.AND" 



PRINT 
GOSUB 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
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62490 


PRINT 


62495 


GOSUB 


62500 


PRINT 


62510 


PRINT 


62520 


PRINT 


62530 


PRINT 


62545 


PRINT 


62550 


PRINT 


62555 


PRINT 


62560 


GOSUB 



" {down} ' < ' ^.PEGS^TO^THE^LEFT. " 

60200 

" TO^MO VE , A TY PE_,_TH E ^NUMB ERj.OF^TH E^SP ACE " 

" { do wn } FROM^WH I CH^Y OU_ t .WANT_ t .TH E_«_PE G^MOVED , A AN D " 

" {down}HIT J .{rvs}RETURN{of f } .j.IF^YOUj.REACH^.A^POSITION" 

" {down} IN jL .WHICH J .YOU J .HAVE J .NO Jt LEGAL J .MOVE f ^ENTER" 

" {down} A*. ■ '^TOj.RESIGN . " 

"{2°down}THE Jt PUZZLE J .CAN J .BE J .SOLVED J .IN{ J .}24 J .MOVES." 

" {down}SEE^HOW^WELL_«YOU J _CAN_JX). " 

60200 
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LEAP 



By Glen Fisher 



You are playing against yourself in LEAP, 
trying to eliminate all but one of the pegs 
on the board. When the game starts, you 
have a 4 x 8 board filled with holes which 
contain 31 pegs. The rows are numbered and the 
columns are lettered, so any given hole is 
described by a letter/number combination (for 
example, D2 or 2D). The PET will ask you where 
you want the space to be. You may either name 
the place for the hole, or just press [RETURN] 
and let the PET pick a spot at random. 

On each move, you must remove a peg by 
leaping over it with another. Pegs can only leap 
into holes. Each peg that you jump over is 
removed, and a hole is left in its place. The only 
kind of move you can make is a leap; just moving 
the peg is illegal. The game is over when you can't 
make any more leaps. To achieve a perfect game, 
you must leave only one peg behind. (Two isn't 
hard, but one is very difficult.) 

To leap over a peg, type the positions of the peg 
you want to move when the PET gives you the 
"From ?" prompt. Then type the position of the 
hole you want to leap into when the PET gives 
you the "To ?" prompt. For the "To ?" prompt, 
you can give just the part of the position that 
changes. (For example, with a move from C4 to 



C2, you could respond to "To ?" with just a "2", 
since the "C" stays the same.) If you decide you 
want to move another peg, answer the "To ?" 
prompt with a [left arrow] , and you'll get the 
"From ?" prompt back again. You can move any 
direction except diagonally. If you want to 
resign, press [R]. 




1981 THE CODE WORKS 



CLR.-POKE 59468,12 
6 REM LEAP COPYRIGHT (C) 
10 REM AS OF 10/6/81 RJ 
90 PG$="LEAP":NM$="13" :GOSUB 62000 
100 PRINT CHR$(142) :DT$="{off }_._{off Q off W rvsJ^frvs W rvs Q}" 
200 HR=0:HC=0 
500 HT=12:VT=5 
510 CR$="" 
520 BP=1E5 
1000 T$ = "Ueft H^n}^]}^]}^]}^]}^]}^]}^]}": 

U$="{+@[@[@[@[@[@[@[@3}" 
1010 PRINT "{clr}":H=0:V=0:GOSUB 9000: PRINT Mup}^A^B^C^D^E J _F J _G JL H" 

H=HT-2 
1020 PRINT TAB(HT) ; " { 0@2@2@2@2@2@2@2@ . } " 
1030 PRINT TAB(H) ;1;T$:PRINT TAB (HT) ;U$ : PRINT TAB(H);2;T$: 

PRINT TAB(HT) ;U$ 
1035 PRINT TAB(H) ;3;T$:PRINT TAB(HT);U$ 
1040 PRINT TAB(H);4;T$ 
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1050 PRINT TAB(HT) ;"{-§l§l@l@l@l§l@l@=}" 

1110 FOR 1=1 TO 4:FOR J=l TO 8 :B (I, J) =1:NEXT J:NEXT I 

1200 FOR C=l TO 8: FOR R=l TO 4 

1210 GOSUB 9200 

1220 NEXT R,C 

1300 IF HOO THEN R=HR:C=HC:GOTO 1330 

1310 H=-l:V=9:GOSUB 9000: PRINT "WHERE 1 S J _THE_ t _H0LE? J _»_ t {2 o lef t } " ; : 

GOSUB 60000 :GOSUB 9100 
1315 IF IN$ = ,,,, THEN R=INT (RND (1) *3) +1:C=INT (RND(l) *8) +1:ER=0 
1320 IF ER THEN 1310 
1325 HR=R:HC=C 
1330 B(R f C)=0:GOSUB 9200 

1340 H=-1:V=9: GOSUB 9000: PRINT " " 

1900 MV=0:TI$="000000" 

2000 H=5:V=-3: GOSUB 9000:PRINT " {rvs)MOVE" ;MV+1:FR=0:FC=0 

2005 H=0:V=9:GOSUB 9000: PRINT "FROM?_ 1 _ tJ _{2 lef t } " ; :GOSUB 60000: 

GOSUB 9100 
2010 ON ER+1 GOTO 2020,2000,2950,2800 
2020 FR=R:FC=C 

2030 IF B(FR,FC)=0 THEN 2000 
2040 GOSUB 9250 
2050 H=0:V=9:GOSUB 9000:PRINT "TO ? U°lef t } " : :GOSUB 60000: 

GOSUB 9100 
2055 ON ER+1 GOTO 2060,2050,2950,2800 
2060 TR=R:TC=C 

2070 IF B(TR,TC)<>0 THEN 2050 
2100 IF FROTR AND FCOTC THEN 2900 
2110 IF ABS(FR-TR)<>2 AND FC=TC THEN 2900 
2120 IF ABS(FC-TC)<>2 AND FR=TR THEN 2900 
2130 MR=(FR+TR)/2:MC=(FC+TC)/2 
2140 IF B(MR,MC)=0 THEN 2900 
2200 B(TR,TC)=B(FR,FC) :B(FR,FC)=0 
2210 B(MR,MC)=0 
2220 R«=FR:C=FC: GOSUB 9200 
2230 R=TR:C=TC: GOSUB 9200 
2240 R=MR:C=MC: GOSUB 9200 
2250 MV=MV+1 

2260 H=2:V=13:GOSUB 9000 -.PRINT "TIMEj." ; :ET$=TI$ 
2270 PRINT LEFT$(ET$,2) ; " : " ;MID$ (ET$ ,3 ,2) ; " : " ;RIGHT$ (ET$ ,2) 
2300 FOR 1=1 TO 4: FOR J=l TO 8 :T=SGN (B(I, J) ) 

2310 IF I<3 THEN IF TOSGN (B(I+2,J) ) AND B(I+1,J)<>0 THEN 2000 
2320 IF J<7 THEN IF TOSGN (B(I,J+2) ) AND B(I,J+1)<>0 THEN 2000 
2330 NEXT J, I 

2400 H=0:V=11:GOSUB 9000:PRINT "YOU^HAVE^NO^MOVE. " 
2410 PG=31-MV:IF PG<BP THEN BP=PG:BT$=ET$ 
2420 IF PG=BP AND ET$<BT$ THEN BT$=ET$ 

2500 H=0:V=15:GOSUB 9000:PRINT "TRY^AGAIN?^" ;: GOSUB 60000 
2510 IF LEFT$(IN$,1)<> ,, N" THEN 1000 

2520 PRINT "{clr 2°down}YOUR J .BEST J .GAME^WAS : AJ _ t _ t _ t _ t {down} " 
2530 PRINT BP;"PEGS J _LEFT_«_IN J _"; 
2540 IF LEFT$(ET$,2)<>"00" THEN PRINT LEFT$ (ET$ , 2) ; " : " ; 
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2550 
2590 
2800 
2900 
2905 
2910 
2920 
2930 
2950 
2960 
8999 
9000 
9100 
9101 
9102 
9105 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9250 
9999 
60000 
60010 
6002C 

60030 
60070 

60080 

60090 
60100 
60110 
60120 

60130 

60140 
60200 
60205 
60210 
60220 
60230 
60240 



PRINT MID$(BT$,3,2) ; " : " ;RIGHT$ (BT$ , 2) ;"." 

END 

ET$=TI$:GOTO 2410 

IF ER<0 THEN 2950 

H=4:V=ll:GOSUB 9000:PRINT " {rvs)BAD J .MOVE. " 

TM=TI+90 

IF TKTM THEN 2920 

GOSUB 9000: PRINT " " 

R=FR:C=FC:GOSUB 9200 

GOTO 2000 

END 

PRINT "{home}" : POKE QL, V+VT:PRINT " {up} " ;TAB (HT+H) ;: RETURN 

ER=1:IF IN$="4" THEN ER=2 

IF IN$="R" THEN ER=3 

IF LEN(IN$)=1 AND FRO0 THEN 9170 

IF LEN(IN$)<>2 THEN RETURN 

R$=LEFT$ ( IN$ , 1) : C$=RIGHT$ ( IN$ , 1) 

IF R$>="A" AND R$<="H" THEN 9150 

IF R$<"1" OR R$>"4" OR C$<"A" OR C$>"H" THEN RETURN 

R=ASC (R$) -48 :C=ASC(C$) -64 :ER=0: RETURN 

IF C$<"1" OR C$>"4" THEN RETURN 

R=ASC (C$) -48 :C=ASC(R$) -64 :ER=0: RETURN 

IF IN$>="A" AND IN$<="H" THEN C=ASC (IN $) -64 :R=FR:ER= 0: RETURN 

IF IN$>="1" AND IN$<="4" THEN R=ASC (IN $) -48 :C=FC: ER=0: RETURN 

RETURN 

H=2*C-l:V=2*R-l:GOSUB 9000:PRINT MID$ (DT$ ,1+2*B (R,C) , 2) .-RETURN 

B=B(R,C) :B(R,C)=B+3:GOSUB 9200 :B (R,C) =B:RETURN 

END 

IN$='V:ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<>"" THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( V{&} " , ZC, 1) ; " Qef t } " ; : ZC=3-ZC : 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) :IF (Z AND 127X32 THEN PRINT "^{lef t } " ; : 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>2 THEN 60010 

IN$=IN$+Z$ .-PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) .-PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ ( IN$ , ZL-1) :PRINT " {lef t } " ; : 

GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL.-PRINT Z$;: 

NEXT Z:GOTO 60000 

GOTO 60010 

IF PN=0 THEN 60250 

GOSUB 60500 

PRINT "PRESS^J rvs} RETURN {of f^TO^."; 

IF PN=LP THEN PRINT "BEGIN: "; :GOTO 60240 

PRINT "CONTINUE:"; 

GET T$:IF T$="" THEN 60240 
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60250 
60260 

60265 
60270 
60300 
60400 
60410 
60420 
60430 
60500 
62000 
62010 
62020 
62030 
62080 
62090 
62100 
62110 
62120 
62130 
62140 
62150 
62160 

62170 
62180 
62190 
62195 
62200 
62210 
62220 
62230 
62240 
62250 
62260 
62270 
62280 



60300 

" (clr } " ; PG$ ; V-^CURSOR^J " ; NM$ ; 
,PAGE";PN 



IF PN=LP THEN 

PN=PN+1: PRINT 

"^ (0^1981.^ 

GOSUB 60500 

RETURN 

PRINT " {clr }":CLR: GOSUB 60400 :GOTO 100 

QL=245:CR$=CHR$(13) 

IF PEEK(50000)=0 THEN RETURN 

QL=216:POKE 1022,128 

RETURN 

FOR 1=1 TO 13:PRINT " {§@@} " ; :NEXT I:PRINT :RETURN 

PRINT "(clr 2°down}";TAB(15-LEN(PG$) ) ;PG$ ; "^.BY^GLEN^FISHER" 
" {do wn} J _ tAJ _ 1 .CURSOR J _#13_ lJ _COPYRIGHT_ t . (C)_,_1981 " 
60500 

" {down}CLEAR_ t _THE_ t _BOARD_ t .OF_ 1 .ALL_ t THE_ 1 .PEGS " 
"{2°down}WANT_ 1 .DIRECTIONS?_ t ,, ;:GOSUB 60000 

IF LEFT$(IN$,1)<>"Y" THEN 60300 

LP=2:GOSUB 60200 

PRINT "YOU^BEGIN^WITHj.A^BY^S^BOARD^WITOj.ALL" 

{down}SQUARES J .FILLED J .WITH^WHITE J .PEGS. A YOU" 

{down}FIRST A REMOVE_ t _ONE J PEG.. t (IF_ 1 _YOU_ ! _PRESS" 

{down rvs} RETURN {Off } ,_ t A J .RANDOM_ 1 _PEG J .IS_ 1 .REMOVED. ) " 

{ 2 °down} AFTER^THE^STARTING^. ' HOLE ' ^IS^SELECTED , " 

{ do wn } TH E^OB JECT^.OFj.TH E^GAMEj.IS^TO^.REMOVE^PES { lef t 



PRINT 
GOSUB 
PRINT 
PRINT 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

ins}G" 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 



,, {down}BY J .JUMPING J .OTHER J .PEGS J .OVER J .THEM. A NOTE" 

" { do wn } THAT_ 1 .YOU_ 1 MAY_ 1 _ONL Y_ 1 _JUMP_ t .UP J .AND_ 1 _DOWN , A OR " 

" {down}LEFT J .AND J _RIGHT, J .BUT_ t .{rvs}NOT{of f }_,.DIAGONALLY! " 

60200 

" TH E_,_G AME_ t _ENDS_ t .WHEN_ t YOU_ t HAVE_ 1 _ONL Y_._ONE.j_PG {left in S } E " 

" {down} LEFT ,^OR^WHEN A YOU___HAVE___NQ__.REMAINING " 

" {down} LEGAL___MOVES .___YOU___CAN_,. ' RESIGN • ^BY^PRESS-" 

" { do wn } ING___ ' R ' ___FOR___YOU R_«_ • FROM ' A MOVE . " 

" {2°down}IF J .YOU J .CHANGE A YOURx.MIND J .ABOUT A WHICH J .PEG" 

" {down} YOU___WANT A TO_jyiOVE,._j:NTER___A_ L . • < , ___FOR___YOUR" 

" {down} ' TO ' ...MOVE , ___AND.__.YOU • LL_,_BE___ASKED___AGAIN " 

" {down}WHICH___PEG__.YOU__.WISH__.TO_,.MOVE. " 

60200 
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FIFTEEN 



By David Platton 




This is our version of the ancient "Fifteen" 
puzzle. You're given a board with 16 spaces, 
15 of which have tiles numbered 1 though 
15. By sliding the tiles into the empty square, you 
must move the numbers around so that they read 
from 1 to 15 in order. Naturally, the fewer moves 
it takes you, the better. 

After the board is displayed to you, start sliding 
tiles around. To slide a tile, use the numeric pad 
to tell which direction the tile should move. Since 
there is only one hole, there is only one tile that 
can slide in that direction. Below the board is a 
counter which keeps track of each move. You 
may be surprised at how many moves it takes you. 

The PET will watch you until you get the tiles 
in order, one to four in the top row, five to eight 
in the second, and so on, with the hole in the 
lower right corner. 

CLR:POKE 59468,12 

6 REM FIFTEEN COPYRIGHT (C) 19 81 THE CODE WORKS 
1.0 REM AS OF 10/5/81 TZ 
90 PG$="FIFTEEN" :NM$="15" :GOSUB 62000 

100 DIM A(16) ,B(16) :TB=8 

101 PRINT CHR$(142) 

120 PRINT "{clr 2°down}"TAB(TB) " {0@@@@2@@@@2@§@@2@§@@. } " 
130 FOR 1=1 TO 4:FOR J=l TO 3: PRINT TAB(TB); 

"{]} J _ tJ ^{]} JJ ^{]} JJ ^{]} J ^ JLJ .{]}":NEXT J 
140 IF I<4 THEN PRINT TAB(TB) ; " {+@§@@ [@@@@ [ @ @@@ t @@@@3> " 
150 NEXT I:PRINT TAB(TB) ; " {-@@@@1@@@@1§@@@1@@@@=} " 
160 FOR 1=1 TO 16:A(I)=I:NEXT I 
170 FOR 1=15 TO 2 STEP -1: J=RND(1) *I+1:T=A(J) :A(J) =A(I) :A (I) =T: 

NEXT I 
180 FOR 1=1 TO 16:B(I)=A(I) : IF B(I)=16 THEN BS=I 
190 NEXT I 

200 C=0:FOR 1=1 TO 16 

210 IF A(I)OI THEN T=A(I) :A(I) =A(T) :A(T) =T:C=C+l:GOTO 210 
220 NEXT I 

230 IF (C AND 1) =0 THEN 270 

240 I=INT(RND(1)*16)+1:IF B(I)=16 THEN 240 
250 J=INT(RND(1)*16)+1:IF B(J)=16 OR I=J THEN 240 
260 T=B(I) :B(I)=B(J) :B(J)=T 
270 PRINT " {home}":PRINT "{3°down}"; 

280 FOR 1=1 TO 16 STEP 4:FOR J=0 TO 3:PRINT TAB(TB+J*5+2) ; 
290 IF B(I+J)<16 THEN PRINT RIGHT$ (STR$ (B(I+J) ) , 2) ; 
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300 

310 
315 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

475 
480 
490 
600 

700 
60000 
60010 
6002C 

60030 
60070 

60080 

60090 
60100 
60110 
60120 

60130 

60140 
60300 
60400 
60410 
60430 
60500 
62000 
62010 



(3 AND T)=0 THEN 310 



(3 AND BS)=0 THEN 310 



NEXT J:N=0:PRINT " {3°down} " :NEXT I:POKE QL f 22: 

PRINT ,, {up}"TAB(13)N;"MOVES n 

GET Z$:IF Z$="" THEN 310 

IF Z$="Q" THEN PRINT "{clr}":END 

IF Z$<"2" OR Z$>"8" THEN 310 

IF VAL(Z$) AND 1 THEN 310 

ON VAL(Z$)/2 GOTO 410,390,370,350 

T=BS+4:IF T>16 THEN 310 

GOTO 420 

T=BS-1:IF 

GOTO 420 

T=BS+1:IF 

GOTO 420 

T=BS-4:IF T<1 THEN 310 

B(BS)=B(T) :B(T)=16 

I=INT((BS-l)/4) :J=BS-I*4 

POKE QL, 1*4+5: PRINT " {up} "TAB(TB+J*5-3) RIGHT$ (STR$ (B(BS) ) ,2) 

I=INT((T-l)/4) :J=T-I*4 

POKE QL, 1*4+5: PRINT " {up} "TAB(TB+J*5-3) n ^_ L n 

BS=T:N=N+l:POKE QL,22:PRINT " {up} "TAB(13) STR$ (N) ; VMOVE" ; : 

IF N>1 THEN PRINT "S"; 

PRINT 'V* :IF BS<16 THEN 310 

FOR 1=1 TO 16:IF B(I)OI THEN 310 

NEXT I:POKE QL,21:PRINT " {up} "TABQ4) "SOLVED J .IN{2°down} " 

PRINT "DO J .YOU A WANT J .TO J .PLAy J .AGAIN ?^." ; : GOSUB 6 : IF LEFT $ ( IN $ , 

1)<>"N" THEN 120 

END 

IN$ = V":ZT=TI:ZC=2:ZD$=CHR$(20) 

GET Z$:IF Z$<> ,,M THEN 60070 

IF ZT<=TI THEN PRINT MID$ ( " A {&} " 

ZT=TI+15 

GOTO 60010 

Z=ASC(Z$) :ZL=LEN(IN$) : IF 

GOTO 60110 

IF FL AND (Z AND 127)>64 AND (Z AND 127X91 THEN 

Z$=CHR$((Z+128) AND 255) 

IF ZL>254 THEN 60010 

IN$=IN$+Z$:PRINT Z$;ZD$;Z$; 

IF Z=13 THEN IN$=MID$(IN$,2) :PRINT CR$;:RETURN 

IF Z=20 AND ZL>1 THEN IN$=LEFT$ (IN$ , ZL-1) :PRINT ' 

GOTO 60010 

IF Z=141 THEN Z$=CHR$(-20*(ZL>1) ) :FOR Z=2 TO ZL:PRINT 

NEXT Z:GOTO 60000 

GOTO 60010 

PRINT "{clr}":CLR: GOSUB 60400 :GOTO 100 

QL=245:CR$=CHR$(13) 

IF PEEK(50000) THEN QL=216 

RETURN 

FOR 1=1 TO 13:PRINT " {@@@} " ; :NEXT I:PRINT .-RETURN 

PRINT " {clr 2°down} " ;TAB (15-LEN (PG$) ) ;PG$ ; ". tJ _BY_ 1 _DAVID. 1 _PLATTON" 

PRINT " {down} J _ t _ t _^.CURSOR J _#15 J _ 1 .COPYRIGHT_ 1 _(C) J _1981 ,, 



,ZC,1) ;"{left} M ;:ZC=3-ZC: 



(Z AND 127X32 THEN PRINT "^{left} 



{left}";: 
Z$;: 
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62020 GOSUB 60500 

62030 PRINT " {downJTHE^FIFTEEN^PUZZLE" 

62040 PRINT " {2°down}PRESS J .{rvs}RETURN{of f J^TO^BEGIN' 

62050 GET T$:IF T$="" THEN 62050 

62060 GOTO 60300 
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By Chris Nadovich 



Yes indeed, here is yet another maze-making 
program. However, this one is different. In 
this program, you are inside the maze, not 
above it. The goal is a piece of cheese (this is a rat 
run, after all) somewhere in the maze. Since the 
rat can probably smell the cheese better than you 
can, we'll give you one additional clue. In a 
corner of the screen, you're told how far it is to 
the cheese. That's not as much help as you might 
think; the quoted distance is "as the flea jumps," 
ignoring the walls of the maze. Thus, it tells how 
far away you are from the cheese, not how far you 
must travel to reach it. 

To navigate the maze, you may press the [8] 
key to move forward. You may also press the [4] 



key to turn to the left, [6] to turn to the right, or 
[2] to turn around backward. The [4], [6], and [2] 
keys do not move you, they just turn you. Only 
the [8] key moves you. 

Finally, if you despair of ever finding the 
cheese, press [?]. You'll be given a map of the 
maze. Where you started will be marked with a 
big white square, your travels will be shown by 
periods in the squares you've occupied, and the 
cheese will be marked with a grey square. Do not 
give up easily. Once you see the map, you'll never 
be allowed into that maze again. Other mazes are 
fine, (and you'll be offered one), but never that 
one. WARNING: If you get nervous in elevators or 
closed spaces, do not play this game alone at night. 




CLR:POKE 59468 f 12 

6 REM RATRUN COPYRIGHT (C) 1981 THE CODE WORKS 
10 REM AS OF 10/8/81 RJ 
90 PG$="RATRUN" :NM$="13" :GOSUB 62000 
100 PRINT CHR$(142) :H=12 :V=7 :H1=H+1 :W=634 :V1=826 
110 I=RND(-TI) 

130 DIM XL(4) f N2(4) f YL(4) f XR(4) 

140 FOR 1=0 TO 4:READ XL (I) , N2 ( I) , YL ( I) , XR(I) :NEXT I 
150 DATA 8,20,-4,31,8,12,1,27,12,6,5,24,15,2,8,22,17,0,10,21 
200 CX=INT(RND(1) *H) +1 :CY=INT (RND (1) *V) +1 
210 C=CX:R=CY:S=0 
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220 FOR 1=0 TO (V+l) *Hl : POKE W+I,0:POKE V1+I,0:NEXT 

230 PRINT "{clr 2°down}SETTING_ t UP_ t MAZE..."; 

300 DA=0:N=0:AV=V1+C+R*H1:AW=W+C+R*H1:POKE AW, 1:S=S+1: 

IF S>=H*V THEN 900 
320 PRINT MID$("{rvs off}",(S AND 1)+1,1);"{V left}"; 
410 IF C>1 AND PEEK(AW-1)=0 THEN DA=DA+2 :N=N+1 
420 IF C<H AND PEEK(AW+1)=0 THEN DA=DA+1 :N=N+1 
430 IF R>1 AND PEEK(AW-Hl) =0 THEN DA=DA+8:N=N+1 
440 IF (R<V AND PEEK(AW+Hl) =0) THEN DA=DA+4 :N=N+1 
450 N=INT(RND(1) *N) +1 
460 ON DA+1 GOTO 500,850,800,600,750,610,620,630,700,640,650,660, 

670,680,690,695 
500 S=S-1 

510 C=C+1:IF OH THEN C=1:R=R+1:IF R>V THEN R=l 
520 ON PEEK(W+C+R*H1)+1 GOTO 510,300 
600 ON N GOTO 800,850 
610 ON N GOTO 750,850 
620 ON N GOTO 750,800 
630 ON N GOTO 750,800,850 
640 ON N GOTO 700,850 
650 ON N GOTO 700,800 
660 ON N GOTO 700,800,850 




670 ON N GOTO 700,750 

680 ON N GOTO 700,750,850 

690 ON N GOTO 700,750,800 

695 ON N GOTO 700,750,800,850 

700 R=R-l:AV=AV-Hl:POKE AV,PEEK(AV) OR l:GOTO 300 

750 POKE AV,PEEK(AV) OR 1 :R=R+1:AV=AV+H1 :GOTO 300 

800 C=C-l:AV=AV-l:POKE AV,PEEK(AV) OR 2:GOTO 300 

850 POKE AV,PEEK(AV) OR 2 :C=C+1 :AV=AV+l:GOTO 300 

900 I=RND(1)>.5:J=RND(1) :K=RND(1)>.5 

920 IF I THEN X=INT(J*H) +1 : Y=V+(V-1) *K 
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930 IF 1=0 THEN Y=INT ( J*V) +1:X=H+ (H-l) *K 

931 IF (CX-X)T2+(CY-Y)T2<(HT2+VT2)/9 THEN 900 
950 SX=X:SY=Y 

1001 PRINT " {clr}" 

1010 FOR I=W TO W+(V+1) *Hl:POKE I,0:NEXT 
1020 D=INT(RND(1) *4) 
1030 T4=TI:POKE (W+X+Y*H1),1 
1045 IF F=0 THEN GOSUB 3 000: PRINT " {home}"; 
INT(SQR((X-CX)T2+(Y-CY)T2)*10+.5)/10 

1049 IF CX=X AND CY=Y THEN 6000 

1050 GET Q$:IF Q$=""GOTO 1050 

1060 IF Q$="Q" OR Q$="?" THEN K=TI:GOTO 6100 

1070 I=VAL(Q$):IF 1=0 THEN 1050 

1075 IF 1=2 THEN D=D+2 

1080 IF 1=4 THEN D=D-1 

1090 IF 1=6 THEN D=D+1 

1100 IF D<0 THEN D=D+4 

1110 IF D>3 THEN D=D-4 

1120 IF I<>8 THEN 1045 

1200 AV=V1+X+Y*H1:AW=W+X+Y*H1 

1201 ON D GOTO 1260,1310,1360 

1210 IF Y>1 AND (PEEK(AV-Hl) AND 1) THEN Y=Y-l:POKE AW-Hl,l: 

GOTO 1045 
1220 GOTO 1400 

1260 IF X<H AND (PEEK(AV) AND 2) THEN X=X+l:POKE AW+l,l:GOTO 1045 
1290 GOTO 1400 

1310 IF Y<V AND (PEEK(AV) AND 1) THEN Y=Y+l:POKE AW+Hl,l:GOTO 1045 
1340 GOTO 1400 

1360 IF X>1 AND (PEEK(AV-l) AND 2) THEN X=X-l:POKE AW-l,l:GOTO 1045 
1400 DN=23:GOSUB 7000 
1410 PRINT TABU6) ;"{$$$$$$$ 7°left down rvs}NO^DOOR{up}" :FOR 1=1 TO 

1000:NEXT 

1420 PRINT TAB (16) ;"fup> {7°left down) {up}":GOTO 1049 

2000 PRINT " {clr}^"; 

2020 FOR 1=1 TO HrPRINT "{$$$}"; :NEXT:PRINT "{2°down}" 

2100 FOR J=l TO V: PRINT "{' up left • up left • 2°down} "; :FOR 1=1 TO 

H 
2125 K=PEEK(V1+I+J*H1) 

2130 PRINT MID$("{$$:} J _ i _{ , $$$}_ t _ tJ _",l+3*K,3) ; 
2140 IF K<2 THEN PRINT "{up left ' up left ' 2°down}"; 
2200 PRINT "{up left}"; 

2210 IF PEEK(W+I+J*H1)=1 THEN PRINT "{left}."; 
2250 IF I=SX AND J=SY THEN PRINT "{left rvs}^{of f } " ; 
2260 IF I=CX AND J=CY THEN PRINT "{left &}"; 

2270 IF I=X AND J=Y THEN PRINT " Uef t } " ;MID$ ( "T>V<" ,D+1,1) ; 
2280 PRINT "{right down}"; 
2290 NEXT: PRINT " {2 °down} " :NEXT: RETURN 
3000 S=0: PRINT "{clr}" 
3005 AV=V1+X+Y*H1 
3010 ON D GOTO 3200,3400,3600 
3025 IF SY=Y-S AND SX=X THEN GOSUB 5100 
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3026 IF CY=Y-S AND CX=X THEN GOSUB 5000 

3027 K=PEEK(AV-(S+1) *H1) : IF K=0 OR K=2 GOTO 3100 
3030 IF PEEK(AV-S*H1) AND 2 THEN GOSUB 4000:GOTO 3040 
3035 GOSUB 4200 

3040 IF PEEK(AV-1-S*H1) AND 2 THEN GOSUB 4500:GOTO 3050 

3045 GOSUB 4700 

3050 S=S+1:IF S>4 GOTO 3900 

3060 GOTO 3025 

3100 IF PEEK(AV-S*H1) AND 2 THEN GOSUB 43 00:GOTO 3110 

3105 GOSUB 480 

3110 IF PEEK(AV-1-S*H1) AND 2 THEN GOSUB 4400:GOTO 3120 

3115 GOSUB 4900 

3120 RETURN 

3200 IF CY=Y AND CX=X+S THEN GOSUB 5000 

3210 IF SY=Y AND SX=X+S THEN GOSUB 5100 

3226 K=PEEK(AV+S) : IF K=0 OR K=l GOTO 3300 

3230 IF PEEK(AV+S)=2 THEN GOSUB 4200:GOTO 3240 

3235 GOSUB 4000 

3240 IF PEEK(AV+S-H1) AND 1 THEN GOSUB 4500:GOTO 3250 

3245 GOSUB 47 00 

3250 S=S+1:IF S>4 GOTO 3900 

3260 GOTO 3200 

3300 IF PEEK(AV+S)=0 THEN GOSUB 4800:GOTO 3310 

3305 GOSUB 43 00 

3310 IF PEEK(AV+S-H1) AND 1 THEN GOSUB 4400:GOTO 3320 

3315 GOSUB 4900 

3320 RETURN 

3400 IF CY=Y+S AND CX=X THEN GOSUB 5000 

3410 IF SY=Y+S AND SX=X THEN GOSUB 5100 

3426 K=PEEK(AV+S*H1) : IF K=0 OR K=2 THEN GOTO 3500 

343 IF PEEK(AV-1+S*H1) AND 2 THEN GOSUB 4000:GOTO 3440 

3435 GOSUB 4200 

3440 IF PEEK(AV+S*H1)=1 THEN GOSUB 47 00:GOTO 3450 

3445 GOSUB 4500 

3450 S=S+1:IF S>4 GOTO 3900 

3460 GOTO 3400 

3500 IF PEEK(AV-1+S*H1) AND 2 THEN GOSUB 43 00:GOTO 3510 

3505 GOSUB 480 

3510 IF PEEK(AV+S*H1)=0 THEN GOSUB 4900:GOTO 3520 

3515 GOSUB 4400 

3520 RETURN 

3600 IF CX=X-S AND CY=Y THEN GOSUB 5000 

3610 IF SX=X-S AND SY=Y THEN GOSUB 5100 

3625 K=PEEK(AV-(S+1) ) : IF K=0 OR K=l THEN GOTO 3700 

3630 IF PEEK(AV-S-Hl) AND 1 THEN GOSUB 4000:GOTO 3640 

3635 GOSUB 4200 

3640 IF PEEK(AV-S) AND 1 THEN GOSUB 4500:GOTO 3650 

3645 GOSUB 4700 

3650 S=S+1:IF S>4 THEN 3900 

3660 GOTO 3600 

3700 IF PEEK(AV-S-Hl) AND 1 THEN GOSUB 43 00:GOTO 3710 
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3705 GOSUB 480 

3710 IF PEEK(AV-S) AND 1 THEN GOSUB 4400:GOTO 3720 

3715 GOSUB 4900 

3720 RETURN 

3900 DN=ll:GOSUB 7000:PRINT TAB(19)"{MN down 2°left NM home} " :RETURN 

4000 DN=YL(S) :GOSUB 7000 

4015 IF S=0 THEN PRINT TAB(XR(S) );"{$} " 

4020 IF S>0 AND S<4 THEN FOR 1=1 TO 4-S:PRINT TAB(XR(S) +5-S) " {%} " : 

NEXT 
4045 IF S>0 THEN PRINT TAB(XR(S) )MID$ ("{$$$$%} ",S) 

4070 IF S=4 THEN PRINT TAB(XR(S) ) " {%% down 2°left %%}" 

4071 Q$="" :IF S>0 THEN Q$=MID$ ( " {3°right %}",S) 

4072 IF S<4 THEN FOR 1=0 TO N2 (S) +1:PRINT TAB(XR(S) ) " {%} "Q$ :NEXT 
4075 IF S>0 THEN PRINT TAB(XR(S) )MID$ ("{####%} ",S) 

4095 IF S>0 AND S<4 THEN FOR 1=1 TO 4-S:PRINT TAB (XR(S) +5-S) " {%} " : 
NEXT 

4096 IF S=0 THEN PRINT TAB(XR(S) ) " {#} " 

4098 PRINT "{home}" 

4099 RETURN 

4200 DN=YL(S) :GOSUB 7000 

4215 IF S=0 THEN PRINT TAB (XR(S) ) " {N} " :GOTO 4230 

4220 FOR 1=1 TO 5-StPRINT TAB(XR(S) +5-S-I) " {N} " :NEXT 

4230 DN=N2(S)+2:GOSUB 7100 

4235 IF S=0 THEN PRINT TAB(XR(S) ) " {M} " -.GOTO 4249 

4240 FOR 1=0 TO 4-S:PRINT TAB(XR(S) +1) " {M} " :NEXT 

4249 PRINT "{home}" 

4250 RETURN 

4300 J=3-S:IF S=0 THEN J=0 

4305 PRINT "{home}"; 

4306 IF S>0 GOTO 4328 

4307 PRINT TAB(20) ;:PRINT " {down} " ; :FOR 1=1 TO 18:PRINT "{#}"; :NEXT: 
PRINT "{#}" 

4310 DN=N2(0) :GOSUB 7100 

4320 PRINT TAB(20);:FOR 1=1 TO 19:PRINT "{$}"; :NEXT:GOTO 4398 

4328 DN=YL(S) : GOSUB 7100 

4329 FOR 1=1 TO 5-S: PRINT TAB ( J+XR(S) +2) " {% } " :NEXT 

4330 PRINT TAB(20);:FOR 1=19 TO J+XR(S) : PRINT "{#}"; :NEXT: 
PRINT "{%}" 

4370 IF S<4 THEN FOR 1=1 TO N2(S):PRINT TAB ( J+XR(S) +2) " {%} " :NEXT 
4380 PRINT TAB(20);:FOR 1=19 TO J+XR(S) : PRINT "{$}"; :NEXT: 

PRINT " {%}" 
4385 FOR 1=1 TO 5-S:PRINT TAB( J+XR(S) +2) " {% } " :NEXT 

4398 PRINT "{home}" 

4399 RETURN 

4400 PRINT "{home}"; 

4406 IF S>0 GOTO 4430 

4407 PRINT "{down}";:FOR 1=1 TO 11+XL (0) :PRINT "{#}";:NEXT: 
PRINT "{#}" 

4410 DN=N2(0) :GOSUB 7100 

4420 FOR 1=1 TO 12+XL (0) : PRINT "{$}"; :NEXT:GOTO 4398 

4430 DN=YL(S) :GOSUB 7100 
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4431 
4432 

4470 
4480 

4485 
4498 
4499 
4500 
4515 
4520 
4545 
4565 
4570 
4572 
4575 
4595 
4596 
4597 
4599 
4700 
4715 
4720 
4730 
4735 
4740 
4749 
4750 
4800 
4815 
4820 
4825 
4830 
4835 
4840 
4850 
4851 
4855 
4900 
4902 
4910 
4915 
4920 
4925 
4930 
4935 
4940 
4950 
4951 
4955 



FOR 1=1 TO 5-S: PRINT TAB (XL (S) ) " { • } " :NEXT 

PRINT TAB(XL(S)) ;:PRINT "{'}";:FOR I=XL(S) TO 17:PRINT "{#}";: 

NEXT: PRINT "{#}*• 

IF S<4 THEN FOR 1=1 TO N2(S): PRINT TAB (XL (S) )"{'}" :NEXT 

PRINT TAB (XL (S) ) ;: PRINT " {'}";: FOR I=XL(S) TO 17: PRINT "{$}";: 

NEXT: PRINT " {$}" 

FOR 1=1 TO 5-S: PRINT TAB (XL (S) ) " { • } " :NEXT 

PRINT "{home}" 

RETURN 

DN=YL(S) :GOSUB 7000 

IF S=0 THEN PRINT TAB (XL (S) );"{$} " 

IF S>0 AND S<4 THEN FOR 1=1 TO 4-S: PRINT TAB (XL (S) )"{•}" :NEXT 

IF S>0 THEN PRINT TAB (XL (S) ) LEFT$ ("{'$$$$}", 6-S) 

IF S=4 THEN PRINT TAB (XL (S) ) " { ' * 2°left down • *}" 

Q$="":IF S>0 THEN Q$=MID$ ( " {3°right '}",S) 

IF S<4 THEN FOR 1=0 TO N2 (S) +1: PRINT TAB (XL (S) ) " { * } "Q$ :NEXT 

IF S>0 THEN PRINT TAB(XL (S) ) LEFT$ ("{'####} ", 6-S) 

IF S>0 AND S<4 THEN FOR 1=1 TO 4-S:PRINT TAB (XL (S) )"{'}" :NEXT 

IF S=0 THEN PRINT TAB (XL (S) ) " {# } " 

PRINT "{home}" 

RETURN 

DN=YL(S) :GOSUB 7000 

IF S=0 TEEN PRINT TAB(XL (S) ) ; " {M} " :GOTO 4730 

FOR 1=1 TO 5-S: PRINT TAB (XL (S) +1) " {M} " :NEXT 

DN=N2(S)+2:GOSUB 7100 

IF S=0 THEN PRINT TAB (XL (S) ) " {N} " :GOTO 4749 

FOR 1=0 TO 4-S:PRINT TAB(XL(S) +5-S-I) " {N} " :NEXT 

PRINT "{home}" 

RETURN 

GOSUB 4200 

DN=YL(S)+5-S:GOSUB 7000 

PRINT TAB (20) ; 

IF S<4 THEN FOR 1=1 TO XR(S) -21 : PRINT 

PRINT "{P left down}"; 

IF S<4 THEN FOR 1=1 TO N2(S):PRINT "{' 



"{: 2°left}"; 
THEN FOR 1=1 



"{#}"; :NEXT 
down left}";:NEXT 
TO XR(S) -20-1: PRINT "{§ 2°lef t } " ; :NEXT 



PRINT 

IF S<4 

PRINT "{home}" 

RETURN 

IF S=0 THEN J=5:GOTO 4910 

J=0 

GOSUB 47 00 

DN=YL(S)+5-S:GOSUB 7000 

PRINT TAB (19) ; 

IF S<4 THEN FOR 1=1 TO 18-XL (S) -5+S+J:PRINT "{# 2°lef t } " ; :NEXT 

PRINT "{O left down}"; 

IF S<4 THEN FOR 1=1 TO N2(S):PRINT " {% down left}";:NEXT 

PRINT "{L}"; 

IF S<4 THEN FOR 1=1 TO 18-XL (S) -5+S+ J: PRINT "{$}"; :NEXT 

PRINT "{home}" 

RETURN 
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5000 
5010 
5020 
5030 

5040 

5050 
5100 
5110 
5120 
5130 
5141 
5142 
5150 
6000 

6010 

6100 

6110 

6115 

6120 

6130 

6140 

6200 

6210 

6220 

7000 

7100 

7110 

62000 

6201C 

62020 

62030 

62032 

62034 

62035 

62036 

62038 

62040 

62049 

62050 

62060 

62070 



IF S=0 OR S=4 THEN RETURN 

DN=18:GOSUB 7000 

IF S=3 THEN PRINT TAB(20) ; " {3°up} . " 

IF S=2 THEN PRINT TAB(19) ; " {rvs up ) off ) 2°left down &N up 

%}" 

IF S=l THEN PRINT TAB (18) ; " {down}^{ $$$ 4°left down N}^.{N% 

5°left down &&&} J .{% 5°left down &&&N}" 

RETURN 

IF S=0 OR S=4 THEN RETURN 

DN=20:GOSUB 7000 

IF S=3 THEN PRINT TAB(19) ; " {5°up rvs " " up 2°left off ,,,, } ,, 

IF S=2 THEN PRINT TAB (16) ; " {3°up rvs ) > {<}" 

IF S=l THEN PRINT TAB(13) ; " {rvs ) > {«}" 

IF S=l THEN PRINT TAB (12) ; " {rvs ) > {«}" 

RETURN 

K=TI:FOR 1=1 TO 25: POKE 245, 22: PRINT : 

PRINT TAB(15) "DELICIOUS! ": FOR J=l TO 50:NEXT J 

POKE 245,22:PRINT :PRINT TAB(15) " ":FOR J=l TO 50: 

NEXT J, I 
GOSUB 2000 

PRINT TAB (10) ;" {up}ANOTHER?_ 1 _ ,, ; 
SW=l:TM=0 

GET T$:IF T$O n " THEN 6200 

IF TI>TM THEN PRINT MID$ ( "?*_" , SW, 1) ; " Uef t } " ; :TM=TI+15 :SW=3-SW 
GOTO 6120 

IF T$ = "Y" OR T$=CR$ THEN PRINT "YES" .-GOTO 200 
IF T$="N" THEN PRINT "NO {down} ": END 
GOTO 6120 
PRINT "{home}"; 

IF DN>0 THEN FOR Z=l TO DN:PRINT " {down} "; .-NEXT 
RETURN 

PRINT "{clr down}";TAB(15-LEN(PG$) ) ;PG$ ; "^BY^C.^T.^NADOVICH" 

PRINT " {down} .^^^CURSOR^JIS^COPYRIGHT... (0^.1981" 

FOR 1=1 TO 13: PRINT " {@@@} "; :NEXT: PRINT 

PRINT " {down}FIND^YOUR A WAY_ t .THROUGH_ t _A J .PERSPECTIVE J jyiAZE" 

PRINT " {down} YOUR^CONTROLS^ARE : " 

PRINT ,, {down} AJ .8 JL MOVE J .FORWARD" 

PRINT "{down}_ iJ _4_ 1 .TURN_ t LEFT" 

PRINT n {down} JLJ .6 J .TURN^.RIGHT" 

PRINT *'{down} AJL 2 J .TURN J .AROUND" 

PRINT " {down^T^HELP!" 

PRINT "{3°down}PRESS^.{rvs}RETURN{off} J .TO J .BEGIN" 

GET T$:IF T$="" THEN 62050 

CLR:QK=525:CR$=CHR$(13) : IF PEEK(50000) THEN QK=158 

PRINT " {clr}":GOTO 100 
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1 



CCdjLX 



MAZE 



By Howard Arrington 



So you want to be rich, do you? Would you be 
satisfied with numerous 24-carat gold bars? 
If so, this game is for you. 
In MAZE, the PET constructs a maze of 
passages and rooms, and at your command, fills 
the rooms with gold. It doesn't do this secretly, 
either. You're free to watch if you like. When all 
the gold is stowed away, you get to venture in 
after it. 

There is one minor hitch. When all the gold is 
safely in place, the map you were studying 
vanishes. You will move about by using the 
numeric keypad (8 moves up, 4 left, 6 right, and 
2 down). As you travel, those parts of the maze 



that you visit will become visible again. When 
you enter a room with gold in it, the value of the 
gold will be announced, and the gold added to 
your hoard. Beware, if a room has several caches 
of gold in it, you'll only find one at a time. You 
must leave the room and re-enter it to find 
another. 

You may wander as long as you like, even after 
you've found all the gold. To stop your travels, 
press [RETURN]. If you despair of finding the 
gold, press [?], and the PET will show you where 
it all is (but won't let you in after it). One more 
thing — you're being timed, so don't waste time 
admiring your newly found riches. 




CLR:POKE 59468,12 

6 REM MAZE COPYRIGHT (C) 1981 THE CODE WORKS 
10 REM AS OF 10/24/81 RJ 
90 PG$="MAZE n :NM$ = n 8 ,, :GOSUB 62000 
100 GOSUB 900:Q=Q-800:GOSUB 810 
110 CLR:GOSUB 60400:GOSUB 900 :Q1=WD*20 :Q2=CRT+WD*5: 

GP$ = If GOLD_ t _PIECES" 
200 SS=50:DIM A% (SS) , C (12) , D% (12, 4) , R$ (8,4) , B% (4, 13) f W$ (4) 
220 FOR 1=0 TO 12:READ C(I):NEXT 

230 DATA 32,64,107,109,110,125,112,113,114,115,91,93,160 
250 FOR 1=1 TO 4-.FOR J=l TO 13:READ B% (I , J) :NEXT:NEXT 
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260 DATA 12,12,12,11,11,11,11,3,5,2,7,9,10,12,12,12,1,1,1,1,3,6,2, 

7,8,10 
280 DATA 12,12,12,1,1,1,1,4,5,7,8,9,10,12,12,12,11,11,11,11,4,6,2, 

8,9,10 
400 FOR 1=1 TO 12-.FOR J=l TO 4:READ D% (I , J) :NEXT:NEXT 
410 DATA 0,1,1,0,1,0,1,1,0,0,1,1,1,1,0,0,0,1,0,1,1,0,1,0,0,1,1,1,1, 

1/1/0 
420 DATA 1,1,0,1,1,1,1,1,1,0,0,1,1,1,1,1 
430 FOR 1=1 TO 4:READ D (I) ,W$ (I) :NEXT 

435 DATA 40 , SOUTH, -1 , WEST, 1 , EAST, -40 , NORTH 

436 D(1)=WD:D(4)=-WD 

440 BL$ = " " 

500 S=1+INT(RND(1) *Q1) :E=10 :P=91 : J%=1 

510 PRINT ,, {clr}NOW^CONSTRUCTING J _MAZE. n :Z=WD*.4:K=0 

516 FOR J=Q TO Q+Ql-l:POKE J,0:NEXT 

520 L=S:Sl=L:A%(l)=L:POKE L+Q,E:POKE L+Q2,P 

610 M=INT(RND(1)*4)+1:F=1 

620 L=S+D(M):IF L<0 THEN L=L+Q1 

626 IF L>=Q1 THEN L=L-Q1 

630 P=PEEK(L+Q2) :IF P>32 OR (P=32 AND D%(E,M)=0) THEN 
M=(M AND 3)+l:F=F+l:IF F<5 THEN 620 

640 IF F=5 THEN 1200 

700 F=INT(RND(1)*13)+1:IF F>9 THEN GOSUB 3000 

720 E=B%(M,F) :POKE L+Q2 ,C (E) :S=L:POKE L+Q,E:IF E=12 THEN Z=Z-1 

733 IF Z>0 THEN F=l:GOTO 620 

735 IF K=0 THEN PRINT " {home}PRESS J .ANY J .KEY J .TO J .STOP J .CONSTRUCTION. " : 
K=l 

737 GET M$:IF M$ = ,,n THEN F=l:GOTO 620 

740 GOTO 5000 

800 Q=PEEK(QM)+256*PEEK(QM+1) :RETURN 

810 H=INT(Q/256) :L=Q-256*H:POKE QM+l,H:POKE QM,L:RETURN 

900 QM=134:QK=525:IF PEEK(50000) THEN QM=52:QK=158 

910 GOTO 800 
1200 S=A%(J%):IF S=0 THEN 5000 

1230 P=PEEK(S+Q2) :E=PEEK(S+Q) :A% ( J%) =0 : J%=J%-1 :GOTO 610 
3000 IF J%<SS THEN J%=J%+1 :A% ( J%) =L 
3030 RETURN 

5000 PRINT " {home }";BL$: PRINT " {up}NOW. i .HIDING_ 1 _THE J _GOLD. . . " 
5005 TR=0:W=0:W1=0:FOR 1=1 TO 25 

5010 L=INT(RND(1)*Q1) :IF PEEK(L+Q)<>12 THEN 5010 

5020 A%(I)=L:POKE L+Q2, 164 :L= INT (RND (1) *10000) +1 :TR=TR+L:A% (1+25) =L 
5030 PRINT "{home 2° down} HIDDEN" ;TR;TAB(14) ;GP$:NEXT I 
5100 PRINT " {home }PRESS J .{rvs}RETURN {off } J .TO J .BEGIN:" 
6000 GET M$:IF M$="" THEN 6000 
6018 L=S1:PRINT " {clr } " :TI$="000000" 
6030 E=PEEK(L+Q) :P=C(E) :P1=P 
6040 POKE 32768, P:GET A$ 
6042 POKE L+Q2,P1 
6045 IF A$="?" THEN 7000 
6047 IF A$="Q" OR A$=CHR$(13) THEN 7100 
6050 IF A$="" THEN P1=(P1+128) AND 255:GOTO 6040 
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6060 POKE L+Q2,P 

6080 J=ASC(A$)-48:IF J<2 OR J>8 OR (J AND 1) THEN 6040 

6100 J%=J/2:J=L+D%(E, J%)*D(J%) 

6102 IF J<0 THEN J=J+Q1 

6104 IF J>=Q1 THEN J=J-Q1 

6110 F=PEEK(J+Q) : PRINT "{home 2° right >" ;W$ ( J%) ;" 



6120 IF D%(F,5-J%)=0 THEN PRINT " {home} "; TAB (10) ; "BLOCKED" : GOTO 6040 

6130 L=J:IF F=12 THEN GOSUB 8000 

6140 GOTO 6030 

7 000 PRINT " {home } J _** J _HERE»S J .THE_ 1 .MAZE :_._**" 

7010 T$=TI$:FOR J=0 TO Ql-1 

7015 E=PEEK(J+Q) :F=PEEK (J+Q2) 

7016 I=128:IF F<>32 THEN I=-58*(E=12) 

7017 IF E=12 THEN I=-I 

7020 POKE J+Q2,C(E)+I:NEXT J 

7030 FOR 1=1 TO 25:IF A%(I)=-1 THEN 7070 

7040 T=Q2+A%(I) :F=PEEK(T) :IF F=32 OR F=36 THEN POKE T,36 

7050 IF F<>32 AND F<>36 THEN POKE T r 164 

7070 NEXT I 

7080 TI$=T$ 

7100 T$=TI$:PRINT "{home down }^_ lJU TIME J ."; LEFT $ (T$,2) ; " : " ;MID$ (T$ , 3 , 
2) ;":";RIGHT$(T$,2) ; 

7110 PRINT " " 

7200 PRINT "{home}";BL$:PRINT " {up}WANT JU TO_ 1 _PLAY_ 1 _AGAIN?.»." ; 

7210 GOSUB 50000 

7220 IF YN THEN FOR 1=1 TO 500:NEXT I 

7240 Q=Q+Ql:GOSUB 810:CLR 

7250 PRINT "{4°down}" 

7260 END 

8000 FOR 1=1 TO 25:IF A%(I)=L THEN 8100 

8020 NEXT I:RETURN 

8100 A%(I)=-l:I=A%(I+25) :TR=TR-I 

8105 W1=W1+1:PRINT "{home 2°right}TREASURE_».#" ;Wl 

8110 PRINT "FOUND_».";I;TAB(14) ;GP$ 

8120 IF TR>0 THEN PRINT "HIDDEN";TR; " Uef t } AJL {lef t } " ;TAB (14) ;GP$ 

8125 IF TR<=0 THEN PRINT "YOU_ 1 _FOUND A ALL_».THE_».HIDDEN J _GOLD! " 

8140 W=W+I:PRINT "WEALTH ";W;TAB (14) ;GP$ 

8150 FOR 1=1 TO 500: IF PEEK(QK)<>0 THEN 8160 

8155 NEXT I 

8160 PRINT "{home down}";BL$ 

8170 RETURN 
50000 YN=1 
50010 SW=1:TM=0 

50020 GET T$:IF T$<>"" THEN 50100 

50030 IF TI>TM THEN PRINT MID$ ( "?_,_", SW, 1) ; " {lef t} " ; :SW=3-SW:TM=TI+30 
50040 GOTO 50020 

50100 IF T$= n Y" THEN YN=l:GOTO 50150 
50110 IF T$="N" THEN YN=0:GOTO 50150 
50120 IF T$OCHR$(13) THEN 50030 
50150 PRINT MID$("NO_ t YES",l+3*YN,3) :RETURN 
60200 IF PN=0 THEN 60250 
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60205 
60210 
60220 
60230 
60240 
60250 
60260 

60270 
60400 
60410 
60415 
60500 
62000 

62002 
62004 
62010 
62020 
62030 
62300 
62310 
62320 
62360 
62370 
62375 
62376 
62380 
62390 
62420 
62430 
62440 
62475 
62480 
62490 
62500 
62510 
62520 

62530 

62540 

62550 
62560 
62570 
62580 
62590 
62600 
62610 
62620 



GOSUB 60500 

PRINT "PRESSjJrvs }RETURN {of f } j_TOj." ; 
IF PN=LP THEN PRINT "BEGIN: " :GOTO 60240 
PRINT "CONTINUE:" 
GET T$:IF T$="" THEN 60240 
IF PN=LP THEN PRINT "{clr}":GOTO 100 
PN=PN+1 : PRINT " {clr } " ; PG $ ; " j.-j_CURSORj.# " ;NM$ ; 
"jj. ( C ) j.1 9 Sljj^PAGE " ; PN 
GOSUB 60500 :RETURN 
CRT=32768:WD=40:PRINT "{clr}" 

POKE CRT, 96: IF PEEK (CRT+1024) <>96 THEN WD=80:PRINT CHR$(142) 
RETURN 

FOR 1=1 TO 13: PRINT " {DDD}"; :NEXT I: PRINT : RETURN 
PRINT "{clr 2°down}";TAB(14-LEN(PG$)) ;PG$; 
" jj,BYj_HOWARDj.ARRINGTON " 

PRINT " {down }j JLJL j^CURSORj_#8j J _COPYRIGHTj.(C)j.1 981" 
GOSUB 60500 

PRINT " {down } FINDj_THEj.HIDDENj_TREASURES " 
PRINT "{2°down}WANTj_DIRECTIONS?j.";:YN=0:GOSUB 50010 
IF YN=0 THEN PRINT " {clr } " ; :CLR:POKE 59468, 12:GOTO 100 
LP=3:GOSUB 60200 

PRINT "THEj.OBJECTj_OFj.TH ISj.GAMEj.ISj.TOj.FINDj.ALL " 
PRINT "THEj_GOLDj.HIDDENj.INj.Aj.MAZE." 

PRINT " {down}FIRST,j.THEj_SCREENj_ISj_CLEARED,j_ANDj.CON- n 
PRINT "STRUCTIONj.OFj.THEj.MAZ Ej.ISj_BEGUN . j_ATj_ALL " 
"TIMES , j.YOUj_CANj_SEEj,EXACTLYj_HOWj.DEVIOUS " 
"THEj_MAZ Ej.HADj.BECOME . j.WHENj.THEj.MAZ Ej_IS {___} " 
"ASj_COMPLEX{j.} (ORjJ^Sj.SIMPLE) jASj.YOUj.LIKE, " 
PRINT "PRESS {j. rvs>RETURN{0ff }j.TOj.STOPj.CONSTRUCTION." 
PRINT " {down}WHENj.THEj_MAZEj.ISj.COMPLETE,j.THEj_PET" 
PRINT "HIDESj.Aj.NUMBERj.OFj.GOLDj.PIECESj. ( { rvs } $ {off } ) j_IN" 
PRINT "VARIOUSj.PLACESj.INj.THEj.MAZE. " 
GOSUB 60200 
PRINT "ONCEj.ALLj.THEj_GOLDj_ISj_HIDDEN , j.YOUj.MAY" 

"BEGINj.YOURj.SEARCHj.BYj.PRESSINGj.{rvs }RETURN {Of f } . " 
"THEj.MAZEj.WILLj.VANISH,j.ANDj.YOUj.WILLj.FIND" 
"YOURSELFj.ATj.THEj.STARTj.OFj.THEj.MAZE. " 
" YOU j.CANj.MOVEj.BYj.PRESS INGj.THE { j. 
rvs>8{off },j.{rvs>4{off },j J .8" 

PRINT "{rvs>6{off },j.ANDj.{rvs}2{off }j.KEYS.j.{rvs}8{off } 
j.MOVESj.UP,j.{rvs)4{of f }j.LEFT,j_ t {] } " 

PRINT 

" {rvs } 6 {Of f } J.RIGHT, j.ANDj_{ rvs } 2 {of f }j_MOVESj_DOWN.. 

PRINT " EVERj.YOU j.STUMBLEj.OVERj.SOMEj.GOLD , j_^j^. { ] } ' 

PRINT " ITSj_VALUEj.WILLj.BEj.ADDEDj.TOj.YOURj___ t j_ t 2 " 

PRINT "WEALTH . J.BEWARE , J.HOWEVER ! J.SEVERAL " 

PRINT "PILESj.OFj.GOLDj.PIECESj.MAYj.BEj.HIDDENj.AT" 

PRINT "ANYj.GIVENj.SPOT,j.ANDj.YOUj.MUSTj.RE-ENTER" 

PRINT "THEj.HIDINGj.PLACEj.TOj.FINDj.THEj.OTHERS. " 

GOSUB 60200 

PRINT "IFj.YOUj.FINDj.ALLj.THEj.GOLD, {j.}YOUj.WILLj.BE' 



PRINT 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 



.WHEN-j_4{@[@}6' 
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62630 
62640 
62650 
62660 
62670 
62680 
62690 
62750 
62760 



PRINT "TOLD_ t SO._ t YOU. t WILL_J3E_ 1 _FREE_ t TO. t CONTINUE " 

PRINT " EXPLORING^THE^MAZ E , ...HOWEVER . ^.AT^ANY n 

PRINT "TIME , . i .YOU J .CAN_ t STOP J _EXPLORING_ 1 _BY_ 1 _PRESS- " 

PRINT "ING{^ rvs}RETURN{off }._ i _IF_ t YOU_ i _DESPAIR_J)F J _EVER" 

PRINT "FINDING J .ALL J .THE J .GOLD f A PRESS^{ rvs } ? {off } , ^.AND^YOU " 

PRINT n WILL J .BE J .SHOWN J .THE J .MAZE{ J .} (AND^THE^GOLD) " 

PRINT "AGAIN." 

PRINT TAB(ll) " J .{3°down rvs}HAPPY_,_HUNTING! (of f 2°down}" 

GOSUB 60200 
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DUNGEON 



By Brian Sawyer 



The evil magician Trent has transported you 
into the depths of some long-abandoned 
dungeons. The dungeons have been taken 
over by a large collection of monsters, each with 
its own hoard of gold. Trent has agreed to release 
you from his power if (and only if) you somehow 
get all the gold away from the monsters. 

The dungeons themselves are the usual run- 
of-the-mill dungeons — dank, dark, dismal, and 
decrepit. These dungeons have a novelty, 
however. Being long-abandoned, several 
passages have caved in, blocking the route to the 
rooms they once led into. Trent has foreseen this, 
and has given you a way to pass through walls. 
Also, the various creatures have been there a 
long time (feeding on those unwise enough to 
come in seeking gold) and no longer fit through 
the doorways. Finally, the spell Trent used to put 
you there won't permit you to leave. Only he can 
get you out. 

On the screen, youMl see a map of the 
dungeon, drawn as you travel about (your 
movement is controlled by the numeric keypad). 
Your position is marked with a dot. Gold, as you 
find it, is marked with a "G." The various sorts 
of creatures are marked with various sorts of 
markers. Open space is shown as white, and 
doors as grey squares. Walls are shown as black. 



Again, nothing will show up on the screen until 
you find it in the dungeon. 

In addition to the map, lines of information are 
kept on the screen. They show your hit points, 
your experience points, and how much gold you 
have. 

Hit points measure how much strength you 
have (zero means you're dead). Wandering about 
doing nothing uses up a few hit points; battling a 
monster uses up a great many. You may rest if 
your hit points get too low, but do so in a safe 
place. The monsters find resting humans to be 
just as tasty as any other kind. 

Experience points indicate how good you are at 
surviving. The more creatures you defeat, the 
higher your experience points go. The more 
experience points you get, the easier it is to defeat 
creatures of a given strength. 

To move, use the numeric pad in the usual 
fashion. To pick up gold, move on top of it. To 
attack a creature, move on top of it. If you want to 
move through the wall, press [SHIFT] with the 
appropriate number. (Walking through walls uses 
up more energy, and more hit points, than 
walking through open space.) If you want to quit 
(and suffer whatever other torments Trent can 
devise), press [Q]. 

As the Boy Scouts say, be prepared. 
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CLR:POKE 59468,12 

6 REM DUNGEON COPYRIGHT (C) 1981 THE CODE WORKS 
10 REM AS OF 10/24/81 
90 PG$= n DUNGEON":NM$="15 n :GOSUB 62000 
100 PRINT CHR$(142) :RS=23 :CS=WD:SZ=RS*CS:BL= (25-RS) *CS:RS=RS-1 : 

CS=CS-1 
110 DIM DG((SZ+BL)/5) ,DR(9) :REM DGO USED TO GRAB MEMORY 
115 P=WD:FOR 1=2 TO 8 STEP 3: FOR N=-l TO 1 :DR(I+N) =P+N:NEXT N: 

P=P-WD:NEXT I 
120 ER$="{home down} {home 

down } " 

130 E2$=" {home} {home} " 

140 A=0 :C0=0 :CC=0 :E1=0 :GN=0 : 1=0 : IU=0 :L=0 :N=0 :N1=0 :Ol=0 :P-0 :PW=0 : 

QQ=0:R0=0 
150 Q=0:SX=0:TS=0:U=0:V=0:V1=0:Y=0:ZC=0:ZT=0 
160 EX$="EXP.":HP$="HIT JL PTS.":IF WD>40 THEN EX $= "^EXPERIENCE" : 

HP$="HIT J _POINTS" 
170 L$="":E$="" 

180 PRINT "{clr}SETTING J .UP..." 

190 HP=50:MG=0:EX=0:PX=0:HG=0:Z=0:FG=0:K1=0:E=0:S=0:W=160:ET=160 
200 TI$="000000":TM=TI+3600*WD/40 
210 AX=CRT:TS=PEEK(QA)+256*PEEK(QA+l)+7+BL 
220 FOR I=TS+WD TO TS+SZ-WD:POKE I,32:NEXT I 
230 GOSUB 380 
240 TS=TS-BL 

250 L=INT(RND(1)*SZ+TS) :IF PEEK(L)<>160 THEN 250 

260 TM=0:GOSUB 1410 :L=L+AX-TS:W= PEEK (L) : GOSUB 600:POKE L,209:W=160 
270 IF PEEK(TS+BL)<>127 THEN PRINT "{home rvs } ABORT! !" :GOTO 1360 
275 POKE QK,0:POKE QP,255:GOSUB 1240 
280 HP=HP-.15-2*SX:IF HP<0 THEN 1190 
300 IF (PEEK(L+A)=32) AND (SXOl) THEN 270 
310 IF PEEK (L+A) =127 THEN 270 

320 POKE L,W:L=L+A:W=PEEK(L) :POKE L,209:GOSUB 600:POKE L,209 
330 IF W=135 THEN GOSUB 1200 
340 IF W>=214 AND W<=219 THEN GOSUB 1000 
350 IF E>0 THEN S=S+1 
360 IF S>1 THEN GOSUB 830 
370 GOTO 27 

380 PRINT INT ( (TM-TI) /60) ;" {left } AJ .{up}" 
400 W=INT(RND(l)*9+2) :L=INT (RND (1) *9+2) 
410 R0=INT(RND(1) *(RS-L-1) ) +1 :C0=INT(RND(1) * (CS-W-1) ) +1: 

P=TS+WD*R0+C0 
420 IF P+WD*L+W>=TS+SZ THEN 530 
430 FOR N=0 TO L+l:FOR N1=0 TO W+1:IF PEEK (P+ (N*WD) +N1) <>32 THEN 

530 
440 NEXT N1,N 

450 FOR N=l TO L:FOR Nl=l TO W:POKE P+(N*WD) +N1 ,160:NEXT Nl,N 
460 FOR N=P+2+(L+l)*WD TO TS+SZ-1 STEP WD 
465 Q=PEEK(N) :POKE N f 
470 IF Q=160 THEN 485 
475 FOR A=l TO 100:NEXT A 
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